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AYUDANOS 
A AYUDARTE 


Suscríbete 


a tu revista amiga MUNDOATARI. 
Infórmate dé la promoción 
vigente en el volante adjunto 
en el interior de esta revista. 
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Editorial 


¡CUMPLEAÑOS FELIZ! 

Feliz cumpleaños, es nuestro primer pensamiento en este número 
aniversario de MUNDOATARI. Con mucho agrado podemos decirle 
a ustedes, fieles amigos lectores, que los objetivos formulados al 
iniciar esta publicación han sido cumplidos ampliamente. Queremos 
expresar también nuestro deseo de permanecer unidos y estrechar 
filas, para que el crecimiento y el soporte necesarios sobrepasen las 
aspiraciones que ustedes tengan. 

Respecto a nuestra realidad nacional en lo que se refiere al uso 
y aprovechamiento del computador ATARI, podemos decir que la 
evaluación en general es pobre. Las causas no serán motivo de análisis 
de la presente editorial. Pero de no mediar acciones rápidas y efectivas, 
las posibilidades futuras serán cada día más difíciles. 

MUNDOATARI es y debe ser la solución para esta situación 
problemática a nivel nacional. Uno de los requerimientos para cumplir 
esta meta es precisamente el interés de cada uno de ustedes, amigos 
usuarios, para darle a nuestro querido ATARI un uso más diversificado, 
colaborar en las distintas campañas de MUNDOATARI y apoyar a la 
revista en el incremento de lectores y suscriptores , lo que permitirá 
el financiamiento adecuado en todos sus proyectos. 

El slogan que definirá la campaña en nuestro segundo año de 
vida con ustedes será el siguiente: 

AYUDANOS A AYUDARTE 

Para cumplir la tarea mencionada las columnas, artículos y temas 
de futuras ediciones estarán destinados a entregar orientación, información 
y software a bajo costo, que permitan elevar el uso y proyecciones del 
capital invertido, que actualmente no son debidamente aprovechados. 

Su editor 
Iván Gjurovic M. 
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Revista con información exclusiva 
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Oferta hasta el 31 de mayo: 



Por la compra de 5 casetes 
de juegos con STAC 
le regalamos 2 casetes adicionales 
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Player Missil 


Continuamos ia columna de la técnica de 
Player con 3 programas que demuestran las po¬ 
tencialidades de ella. 


Para la explicación entregamos cada uno de 
los programas debidamente documentados, usando 
las instrucciones REM. 

Digite cuidadosamente y ejecute el primer 
listado: 


6 REM MOVIMIENTO HORIZONTAL DE PLAYER 
10 GRAPHICS 3+16:REM MODO 1? 

1? REM Dibuja rectángulo 
20 FOR X=16 T0 24:F0R Y=0 T0 23¡COLOR 
3¡PLQT X|Y¡NEXT Y:NEHT X 
25 REM Reserva Menoría por localiza¬ 
ción 741,742 MEMTOP 
30 MEMT0P=PEEK(7411+256*PEEK(742)~1 

39 REM reserva 1024 bytes resolución 
doble 

40 PMBASE=INT((MEMTOP-1024)/1024)*1024 
50 ADJT0P=PMBA5E+384¡REM Inicio de la 

MeMoria Util de P/M Menoría 
60 POKE 742,INT(ADJTOP/256)¡POKE 741,A 
DJT0P-256*PEEK(742):REM nueve el pun¬ 
tero para reservar la Menoria 
65 REM 

78 POKE 54279,PMBA5E/256:REM Inforna 
al ANTIC de ubicación inicial de 
neMoria para P/M 

80 POKE 53277,2¡REM Activa solo PLAYER 
90 POKE 559,34+8¡REM Resolución siMple 
100 P0=PMBASE+512;REM Localización Ini 
cial de PLAYER 0 

109 REM Inicializa Menoría a usar 

110 FOR A=P0 TO P0+128¡POKE A,0¡NEXT A 

119 REM Refine la Posición Vertical 
dentro de nenoria total del P/M 

120 FOR A=P8+60 TO P0+67¡READ B:P0KE A 
,B¡NEXT A 

130 POKE 53256,3¡REM TaMaKo cuádruple 


para PLAYER O 

140 POKE 623,1¡REM Prioridad de PLAYER 
sobre PLAYFIELD 

150 POKE 704,108¡REM Color para PLAYER 
0 

160 POKE 53248,PEEK(20)¡GOTO 160 ¡REM U 
tiliza Loe. 20 TiMer (CAP. 14) para no 
dificar la posición horiz. 

170 DATA 60,126,129,153,255,36,66,129 


En pantalla observará como ¡lustra la foto: 



Repase el tema de números binarios en MUN- 
DOATARI No. 1, página 28. 


La figura en movimiento corresponde a un 
Player. La linea 170 contiene los valores numéri¬ 
cos de ella. Compruebe con el primer esquema y 
luego determine los valores de la segunda figura. 



figura 1 figura 2 
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TECNICAS: continuación 


Modifique la línea para estos valores y eje¬ 
cute el programa. 

Bravo, usted ha construido su primer Player. 

Continúe con la técnica y su progreso se hará 
más evidente. 

Digite con cuidado y ejecute el segundo lis¬ 
tado: 


10 REH PLAYERMI.T08 
20 REM HUEVE P/M Mediante ML RUTIIÍA 
que ejecuta durante el VERTICAL 
BLANK TEMA 8 

108 POKE 752,1:? CHR$(125l:5ETC0L0R 2, 
0,0:REM inicializa 

110 PCOL0=216:PCOL1=56:REM COLOR PLAYE 
R 

120 G05UB 1000:REH Inicializa ML Ruti¬ 
na para VERTICAL BLANK 
130 POKE PLL,8:P0KE PLL+1,8:REM taMallO 
de PLAYER 

140 POKE Pl.K,108:POKE PLY,102:REM P05i 
cion Inicial de PLAYER 
150 POKE PLX+1,108:POKE PLY+1,72 
160 REH LET MOViMientO RandoM 
170 POKE PLX,RND(0)*159+48:POKE PLY,RN 
0(01*191+32 

180 POKE PLX+1,RND(0)*159+48:POKE PLY+ 
1,RND(01*191+32 
190 A=i A l A l A l:G0T0 
206 END 

1000 REM ML Rutina para VBLANK ' 

1010 FOR 1=1536 TO 1706:READ A¡POKE I, 

A¡NEXT I 

1020 FOR 1=1774 TO 1787:P0KE I,0:NEKT 
I:REM ML en PAGINA 6 Medio superior 
1030 PM=PEEK(1061-16:PMBA5E=256*PM:REM 
reserva 4K de Menoria 
1040 FOR I=PMBA5E+1023 TO PMBA5E+2047: 
POKE 1,0:NEXT I:REM Inicializa con 0 
la P/M Menoría 

1050 FOR I=PMBA5E+1025 TO PMBA5E+1032: 
READ A:POKE I,A:NEXT I:REM localiza da 
ta para PLAYERO 

1860 FOR I=PMBA5E+1281 TO PMBA5E+1288: 
READ A¡POKE I,A:NEXT I:REM localiza da 
ta para PLAYER 1 

1070 POKE 704,PCOL0:POKE 705,PCOL1:POK 
E 706,PC0L2:POKE 707,PCOL3:REM asigna 
color a registros de PLAYER 
1080 PLX=53248:PLY=1780:PLL=1784 
1090 POKE 559,62:P0KE 623,1:P0KE 1788, 
PH+4:P0KE 53277,3IP0KE 54279,PM:REM va 


lores para P/M 

1100 X=U5R(16961:REM actúa la ML en el 
VBLANK 
1140 RETURN 

2000 REM Códigos VBLANK INTERRUPT 
2010 DATA 162,3,189,244,6,240,89,56,22 
1,240,6,248,83,141,254,6,106,141 
2020 DATA 255,6,142,253,6,24,169,0,109 
,253,6,24,189,252,6,133,284,133 
2038 DATA 206,189,240,6,133,203,173,25 
4,6,133,205,189,248,6,170,232,46,255 
2840 DATA 6,144,16,168,177,283,145,205 
,169,9,145,203,136,202,208,244,76,87 
2050 DATA 6,160,0,177,203,145,285,169, 
0,145,203,200,202,208,244,174,253,6 
2068 DATA 173,254,6,157,240,6,189,236, 

6.240.48.133.203.24.138.141.253.6 
2070 DATA 189,235,6,133,204,24,173,253 
,6,109,252,6,133,286,189,240,6,133 
2080 DATA 205,189,248,6,178,160,0,177, 

203.145.205.280.202.208.248.174.253.6 
2858 DATA 169,8,157,236,6,202,48,3,76, 
2,6,76,98,228,0,0,104,169 

2180 DATA 7,162,6,168,0,32,92,228,96 

3060 REM DATA PLAYER5 

3010 DATA 6,6,8,126,195,195,195,126 

3020 DATA 126,195,195,126,24,126,126,2 

4 


Observe los cambios de posición y analice 
el comentario de cada una de estas lineas. 

Ahora el listado final muestra las potencia¬ 
lidades de los Players: 


4 REM PLAYERMI.T09 

5 REM DEMO PLAYER MI55ILE 

10 DIM AS (15),OS(1)¡POKE 623,8 
20 GOTO 40 

30 FOR I=PMBA5E+384 TO PMBA5E+1024:POK 
E 1,0:NEXT I:RETURN :REH inicializa 
el AREA para doble resolución 
40 K=20:REM Posición Inicial de PLAYER 
0 

58 50UND 3,13,8,2:REM Sonido Espacial 
55 GRAPHICS 17:? i»6;" potencialidades 
,60 ? U6J" PLAYER " 

70 ? #6;" MaoB" 

90 A=1 a 1 a í a í a 1 a 1 a I a I¡REM PAUSA 

180 Z=90:REM P05. inicial de PLAYER 1 

118 POKE 704,149:POKE 705,249¡REM COLO 
RES de PLAYER5 0 S 1 

119 REM reserva 40 paginas de Menoría 
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TECNICAS: continuación 


120 P106=PEEK(1063¡P=P106-40:POKE 5427 
9,P:PMBA5E=256*P:G05UB 730¡P0KE 710,9 

129 REM siwple resolución,activa Pla- 
yer y «issile,elimina cursor,Posic 

iones iniciales 0 para PLAYER 9 y l 

130 POKE 559,46:POKE 53277,3¡POKE 752, 
líPOKE 53248,9¡P0KE 53249,0 

140 G05UB 30 
150 RE5T0RE 128 

160 FOR I=PMBASE*640+K TO PMBA5E+644+K 

:READ B:P0KE I,B:NEXT I 

178 DATA 153,189,255,189,153 

180 rem DATA para NAVE espacial 

190 RE5T0RE 176 

200 FOR I=PMBA5E+512+Z TO PMBASE+516+Z 

:READ A:POKE I,AíNEXT I 

210 POKE 53256,0:POKE 53260,13 

220 POKE 53257,9 

230 DATA 153,189,255,189,153 

240 ? "ves el HALLEY por ahí." 

250 FOR 1=1 TO 30O0:NEXT I 

260 ? "NO este es un PLAYFIELD " 

270 FOR 1=1 TO 3000:NEKT I 

280 ? :? " rodeándolo.... 

" es el borde ":FOR l=i TO 
20¡POKE 712,RND(03*255 
290 FOR J=1 TO 180 ¡ NEXT J:NEKT I 
300 ? :? :? "ahorita figuras PLAYER5" 
310 POKE 53248,100 
320 POKE 53249,100 
330 A$="<==== PLAYER 1":K=15:Y=18 
340 G05UB 370 

350 A$="<==== PLAYER 2":H=15:Y=150 

360 G05UB 878 

370 FOR 1=1 TO 30:NEKT I 

380 REM ******* MOVIMIENTO***** 

390 ? :? " .y se Mueven. " 

408 50UND 2,0,8,2 

418 FOR V0L=1 TO 15 5TEP 0.1:5OUND 3,2 

5.4, V0L¡S0UND 1,13,4, VOL 
420 N=VOL*240/15 

430 POKE 53249,N:POKE 53248,N:NEKT VOL 
440 FOR V0L=14 TO O 5TEP -0.1¡SOUND 3, 

25.4, VOL:50UND 1,13,4,VOL:N=VOL*240/14 
¡POKE 53248,N:POKE 53249,N:NEKT VOL 
450 REM ****** CHANGE 5IZE ***** 

460 ? :? " Y Modifican su taMatto. 

. !" 

478 POKE 53248,74¡POKE 53249,74 
480 POKE 53256,ÜPOKE 53257,l:FOR 1=1 
TO 1060¡NEKT I 

498 POKE 53256,3¡P0KE 53257,3¡F0R 1=1 
TO 1O00¡NEKT I 


506 ? ¡? " igual que VIDEO disparan" 
518 POKE 53256,0¡POKE 53257,0¡G05UB 64 
0 

516 FOR 1=1 TO 8¡POKE 53247+1,0:NEXT I 
520 GOTO 10000 

620 IF PEEK(532793=3 THEN POKE 764,12: 
RUN "D:EX5.2" 

630 GOTO 610 

640 REM ****** Mueve MI5SILE ****** 

650 POKE 53252,30¡POKE 53253,80 

660 P=0:FQR 5H0T=1 TO 6¡FOR PO=20 TO 1 

23 

670 SOUND 0,PO,9,8:5OUND 1,P0,10,8:SOU 
ND 2,P8,12,8¡SOUND 3,P0,4,8 
600 POKE PMBA5E+383+P0,0:POKE PMBA5E+3 
84+PO,4 

690 NEXT PO¡NEXT 5H0T 

700 FOR OFF=0 TO 3¡50UND OFF,0,O,0:NEK 

T OFT 

710 RETURN 

720 REM ****** Dibujo FONDO ****** 

730 GRAPHICS 8¡CNT=0:POKE 559,0 
740 COLOR 1¡X=RND(0)*319:Y=RND(0)*159¡ 
CNT=CNT+1¡PLOT K,Y¡IF CNT>150 THEN RET 
URN 

750 GOTO 743 

760 REM ****** PORTADA ****** 

770 GRAPHICS 17 

780 ? 86j" PROGRAM 

790 ? 86;" 8 1 OF " 

S0O ? 86¡? 86¡? 86 
810 ? 86: " f-Jf-Vld-! " 


lissi le| 


830 ? 86;" graphics" 

840 FOR 1=1 TO 50¡FOR J=1 TO 5¡POKE 70 
8+J,RND(03*209:NEXT JlNEKT I 
850 RETURN 

360 REM ****** M0DE8 TEKT ****** 

370 Ii=PEEK(88)+PEEK(893*256 

380 I2=Ii+Y*49+X 

898 FOR Z=1 TO LEN(A$) 

900 0$=A$(Z;Z3¡G05UB 950 

910 I3=57344+X*8 

920 FOR U=0 TO 7 

930 POKE 12+11*40, PEEK (I3+U) 

940 NEKT U¡12=12+1¡NEKT Z 
950 X=A5C(0$)¡IF X>127 THEN X=X"128 
960 IF X>31 AND X<96 THEN X=X-32:RETUR 
N 

970 IF X<32 THEN X=X+64 
980 RETURN 

990 REM * ****** COLLISION * ******** 
10000 GRAPHICS 0¡POKE 82,8 
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TECNICAS: continuación 


10010 P05ITI0M 0,8:? 

W1 




ESTE prograna s 


e encuentra en RAM g UD. 


MODIFICAR UTILIZAR etc 


I002O EMD 


Digite y ejecute el listado. Observará una na¬ 
rración posible de realizar con esta técnica. 

El próximo mes finalizaremos el tema de 
Player Missiles. Hasta entonces. 


TABLA 1 


REGISTROS DE PLAYER/MISSILES 


Localización (es) 

Función 

Comentarios 

POKE 

PEEK 

53248-53251 

Registro de posición horizontal 
para Players 0 a 3. 

POKE valores entre 0 y 255. Sólo 
son visibles en pantalla los valores 
entre 48 y 208. 

e 


53252-53255 

Registro de posición horizontal 
para Missiles 0 a 3 

Idem 

e 


53256-53259 

Registro de tamaño para Players 

0 a 3. 

Ver nota 1 

• 


53260 

Registros de tamaño para Missiles 

Ver nota 2. * 

e 


53248-53251 

Registro de colisión entre Missiles 
y campos gráficos. Missiles 0-3 

Ver nota 3. 


e 

53252-53255 

Registro de colisión entre Players 
y campos gráficos. Players 0-3. 

Ver nota 4. 


• 

53256-53259 

Registro de colisión entre Missiles 
y Players. Missiles 0 a 3. 

Ver nota 5. 


e 

53260-53263 

Registros de colisión entre Players. 
Players 0 a 3. 

Ver nota 6. 


e 

53278 

Usado para limpiar todos los 
registros de colisión. 

POKE cualquier número salvo 

cero para limpiar registros. 

Ver nota 7. 

e 


53261-53264 

Registro de Data gráficos para 
Players 0-3. 

Usado por el computador para 

editar datos P/M. No usado 
normalmente por programadores. 

e 


53265 

Registro de Data gráficos para 
todos los Missiles. 

Idem 

e 


704-707 

Registro de color para Players 

0-3 y Missiles asociados. 

Missiles tienen .el mismo color 
de Players. POKE un valor de 
color en registro. Ver nota 8. 

e 

• 

623 

Registro de prioridad 

Ver nota 9. 

e 

e 

54279 

PMBASE. Número de página 
inicial del área de memoria de 
Player/Missiles. 


• 

• 

559 

Control DMA. Especifica tipo de 
resolución P/M y si la pantalla 
está conectada o no. 

Ver nota 10. 

• 

• 

53277 

Control de gráficos. Habilita el 
sistema Player/Missiles. 

POKE 0 para desactivar sistema 
de P/M. 

POKE 3 habilita P/M. 

e 


1. Registro para tamaño de Player 

Inicial =0. Registro afecta sólo al ancho y 

no al alto. 

POKE valor 

Tamaño 

2. Registro para tamaño de Missiles 



0/2 

1 

3 

ancho normal 
doble ancho 
cuádruple ancho 

Cada ancho de Missil puede ser controlado indepen¬ 
dientemente con este registro. 
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TECNICAS: continuación 


Valores para POKEar para tamaño 

Missil Normal Doble Cuádruple 

0 

0 

1 

3 

1 

0 

4 

12 

2 

0 

16 

48 

3 

0 

64 

192 


3. Registro para colisión Missil/Campo 

Un objeto en el campo es cualquier cosa dibujada en 
pantalla con los comandos PLOT o DRAWTO. Los carac¬ 
teres impresos en pantalla son considerados como tales. 

El número de campo corresponde al comando de 
COLOR usado al plotear. Si ocurre una colisión en pan¬ 
talla entre un missil y un objeto de campo, la lectura con 
PEEK informará cual objeto fue detectado. 


Valor en 
registro 

Campo 

tocado 

Comando COLOR 
correspondiente a campo 

1 

0 

1 

2 

1 

2 

4 

2 

3 

8 

3 

Ninguno. Usado para editar 
en Graphics 1 y 2 


4. Registro para colisión Player/Campo 

Estos registros son afectados cuando un player en¬ 
cuentra en su camino un objeto de campo. La tabla es 
idéntica a la anterior. 

5. Registro para colisión Player/Missil 

Estos registros son afectados cuando un player choca 
con un missil. 


Valor en 

Player 

registro 

tocado 

1 

0 

2 

1 

4 

2 

8 

3 


6. Registro para colisión Player/Campo 

Estos registros son afectados por la colisión entre 
Players. La tabla es idéntica a la de nota 5. 

7. Registro para borrar colisión 

‘ POKE cualquier valor entre 0 y 255 para borrar to¬ 
dos los registros de colisión. Es importante que su progra¬ 
ma borre frecuentemente estos registros. En caso contra¬ 
rio las colisiones múltiples produceh valores anticipados 
que confunden su programa. Lo mejor es limpiar estos 
registros antes de cada movimiento de player o missil. 

8. Registro para color de Player/Missil 

Ponga el color de cada player por medio de POKE, 
con el resultado de la siguiente fórmula: 

COLOR = LUMINOSIDAD +16* TINTE 

9. Registro de prioridad 

Este registro selecciona los objetos que se desplie¬ 
gan en primer plano en relación a los otros. Los colores 
de fondo tienen siempre menor prioridad. 


POKE _ Orden de prioridad _ 

1 Players 0, 1,2, 3, Campo 0, 1,2, 3 

2 Players 0, 1, Campo 0, 1,2, 3, Players 2, 3 
4 Campo 0,1,2, 3, Players 0, 1,2,3 

8 Campo 0, 1, Players 0, 1,2, 3, Campo 2, 3 

Si usted incrementa el valor de los contenidos de 
la prioridad en 32, puede combinar los Players (0 con 1, 
2 con 3) para formar players multicolores. 

10. Registro de control de Acceso Directo a Memoria 
(DMA) 

Este registro controla el despliegue de pantalla y 
Player/Missil como sigue: 


Opción 

Añadir a 
valor final 
para POKE 

Comentarios 

Campo angosto 

1 

Elija 

Campo estándar 

2 

sólo 

Campo ancho 

3 

uno 

Activa Missil-DMA 

4 


Activa Player-DMA 

8 


Player de doble 
resolución 

0 

Valor inicial 

Player de simple 
resolución 

16 


Regular-Graphics DMA 

32 



El valor inicial de este registro es 34 (modo gráfico 
regular, campo estándar, P/M no habilitado). 

POKE 559, 0 desconecta la pantalla y aumenta el 
tiempo de procesamiento en un 30°/o (por ejempo para 
una inicialización más rápida). 


TABLA 2 UBICANDO DATA DE P/M 
BAJO LA LISTA DE DESPLIEGUE 


Poner PMBASE en valor indicado 
(en páginas) bajo RAMTOP 

Resolución Resolución 


Modo Gráfico 

doble 

simple 

0 

8 

16 

1 

8 

16 

2 

8 

s 16 

3 

8 

16 

4 

8 

16 

5 

12 

16 

6 

16 

24 

7 

24 

32 

8-11 

36 

40 


PMBASE es la localización en memoria del co¬ 
mienzo de Data de Player/Missil. Ponga el número de 
página (dirección/256) de PMBASE en localización 
54279. RAMTOP, en localización 106, mantiene el 
número de páginas de RAM en la máquina. 

Si tomamos como ejemplo el Modo 5, codifica¬ 
remos como sigue: 

PM = PEEK (106) -16: POKE 54279, PM 
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CASETE 


Controlando 
la casetera 



El programa de hoy aplica conceptos vistos hasta 
ahora en nuestra columna y sirve para todos los 
computadores ATARI. 

Este mes veremos cómo traspasar una pantalla 
en Modo 0 a casete y cómo recuperarla posterior¬ 
mente. 

Todos sabemos que el diseño de una pantalla 
requiere de muchos cálculos, correcciones y una 
buena cantidad de líneas de programa. 

La facilidad que nos ofrece el programa de 
hoy es poder trabajar directamente en la pantalla, 
tal como la necesitamos. Usted puede usar letras 
mayúsculas, minúsculas, tanto en positivo como 
en inverso, símbolos, caracteres gráficos, núme¬ 
ros, etc. Al presionar la tecla ESC se graba auto¬ 
máticamente la pantalla en casete. También se 
puede cargar esa pantalla desde el casete a la 
memoria. 

En consecuencia usted puede obviar todas 
las líneas referentes a esa pantalla y dedicar su 
esfuerzo al programa principal. ¿Que le parece?. 

Ahora manos al teclado. 

Digite el listado siguiente y grábelo con la 
instrucción LIST"C:'". La numeración parte del 
30000, lo que permite incorporarla en cualquier 
momento a sus programas con la instrucción 
ENTEFTC:'' (y sin borrarlos!). 


3080B reh 

30010 GRAPHICS 0:L=5+PEEK(560)+PEEK C56 
11*256:P=PEEK (89):POKE 82,10 
30028 GLOSE HISOPEN ttl,4,8,"K:":P0KE 1 
6,64:POKE 53774,64:POKE 710,34 
38838 ? :? :? : 

? "Q l»mJiEM jK-TüTf 11 : ? :? 

■'! :? :? "Digite ti opcion= "j 


Carga a 


38035 GET ttl,K 

30040 IF K<49 0R K>50 THEN 38035 
30050 0N K-48 GOTO 30200,30500 
30200 POKE 82,2¡POKE 710,148:? CHR$(12 
5) 

30225 ? " -Para EMPEZAR digite cualqui 


er teda":? :? " -Para GRABAR pantalla 


•':? " digite ®3";:GET ttl,K. 

30228 ? CHR$(125)¡POKE 82,0:POKE 89, P- 
4:POKE L,P“4 

30230 P05ITI0N 0,0;? "**"í 

30240 GET ItlfKtlF K=27 THEM 30388 

30245 IF PEEK(84)=23 AND PEEK(85)=39 T 

HEN POKE 85,20¡GOTO 30240 

30250 ? CHR$CK);:G0T0 30240 

30300 REM 

30320 POKE 89,P:P0KE L,P:P0KE 82,2:? C 
NR$(125) 


«PQRft GRQBAR PftNTflLLft: 


? 'A Ponga cinta en posición":? :? "0 
Presione RECORD+PLAV ... y RETURN" 


30340 GET tti,K:? :? :? " Y otra vez RE 


TURN..." 

30350 OPEN #5,8,0,"C:" 

30360 E=PEEK(88)♦(PEEK(89)-4)*256 

30370 FOR X=0 TO 959:F=PEEK(E*X) ¡PUT tt 

5,F:NEXT X 

30380 CLOSE ttSiEND 

30500 REM LiifflfeM JMMlEEl 

30505 POKE 710,22:POKE 89,P:P0KE L,P:P 

OKE 82,2 

30520 ? CHR$(125) 

30535 ? 

30540 ? :? "fl Ponga cinta en posición" 
:? :? Presione PLAY ... y RETURN";: 


GET ttl,K 

30550 ? :? :? " Y otra vez RETURN" 
30560 OPEN «5,4,0,"C:" 

30570 E=PEEK(88)*PEEK(89)*256:FOR X=0 
TO 959:GET tt5,C:P0KE E*X,C:NEXT X 
30590 CLOSE ttS 


Ejecute el programa y siga las instrucciones. 
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CASETE 



La primera pantalla presenta un menú de opcio¬ 
nes: 

1. Diseñar pantalla y grabar en casete. 

2. Recuperar pantalla desde el casete. 

Presione el número 1 y luego cualquier tecla. 
En ese momento usted empieza a diseñar su pan¬ 
talla tal como lo hace normalmente en directo. 
Puede usar las teclas CONTROL, SHIFT, DELETE 
y RETURN La tecla BREAK está desactivada, 
para no interrumpir el programa. 

Cuando decida que la pantalla está lista pre¬ 
sione ESC, con lo que se inicia la grabación. Eso 
es todo. 

Cuando necesite esa pantalla ejecute el pro¬ 
grama y elija en el menú la opción 2. Siga las ins¬ 
trucciones y de pronto empezará a aparecer su 
'pantalla en el televisor. 

TECNICA DE TRASPASO 

La técnica consiste en manejar 2 pantallas en 
la memoria: la normal con el valor de la localiza¬ 
ción 89 (P) y una paralela situada 4 páginas más 
abajo (P -4). De esta forma manejamos el dise¬ 
ño y lectura de mensajes, que de otra forma bo¬ 
rrarían todo el trabajo realizado. 

El esquema siguiente ilustra lo expuesto: 


Localiz. 89 

156 - 

(P) 

Pantalla Modo O 
(para mensajes) 


152 
(P —4) 


Pantalla paralela 
(para diseñar) 


oao 

/- 


Comentarios del listado: 

30000 Inicialización. Variable L: localización de 
Lista de Despliegue para ver la pantalla. Va¬ 
riable P: valor de localización 89 (inicio de 
pantalla). 

30020 Abre canal 1 para ingreso por teclado. Se 
inhibe la tecla BREAK para evitar detención 
de programa por su causa. 

30030 Menú de opciones de diseño de pantalla 
y grabación (1) o carga desde la casetera a 
la memoria (2). El ingreso por teclado per¬ 
mite restringir las teclas. 

INICIO DISEÑO/GRABACION 

30200 Se inicia proceso de diseño de pantalla al 
presionar cualquier tecla. Para grabar la pan¬ 
talla ya lista sólo debe digitar la tecla ESC. 

30228 El diseño se efectúa 4 páginas más abajo 
de la pantalla normal (P —4). 

30230 Las flechas se obtienen digitando 

ESC CTRL* y ESC CTRL +. 

30240 El programa observa si se ha presionado 
ESC, en cuyo caso comienza a grabar. 

30245 Esta línea sólo controla que no se ingrese 
más caracteres que los 960 de capacidad del 
Modo 0, ya que uno de más haría subir toda 
la pantalla en una línea. 

30250 Edita en pantalla el carácter digitado y 
espera el siguiente. 

30330 Edita instrucciones de grabación. 

30350 Abre canal 5 para grabar. 

30360 Variable E: localización inicial de panta¬ 
lla paralela. 

30370 Ciclo para grabar 960 caracteres. Variable 
F: valor de localización de pantalla para¬ 
lela (-4). 

CARGA 

30500 Inicio de proceso de carga de casetera a 
memoria. 

30505 Retorna a pantalla de modo gráfico 0. 

30535 Instrucciones para cargar pantalla. 

30560 Abre canal 5 para cargar. 

30570 Variable E: inicio de pantalla de modo 
gráfico 0. Ejecuta ciclo para traspaso de 960 
caracteres a pantalla. 

Practique un poco y analice el programa para 

comprender la técnica usada. 

Como problemas para el próximo número de¬ 
jaremos planteados los siguientes: 

— ¿Cómo puede utilizar el último carácter de la 
pantalla (abajo, derecha)? 

— ¿Cómo limpiar la pantalla paralela? El caso se 
produce cuando usted desea diseñar una se¬ 
gunda pantalla. 

— ¿Cómo evitar la palabra READY cuando recu¬ 
pera una pantalla? 

Hasta el próximo mes, amigos. • 
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DISKETTE 



La columna Dominando la 1050 se integra a 
filosofía de MUNDOATARI y entrega una colu 
na de aplicaciones para nuestros asiduos lectoi 


Dominando 
la 1050 


• DIN FA5T$ C39)«AS (76), HONTHS(18) , D$ (I 
) f F$ 1171,BLK$(281,Y$14),DDAY$ C5), CL$ C1 
45),MILLS1288),MH$ C15),5T$(31) 

1 RESTORE 3888:FOR 1=1 TO 39:READ A:FA 
5T$(I)=CHR$(A):NEXT I 

2 NNS='1HnHIHIHHJ ,, :ERR0R=4888 

3 DIN HOV$(39),B$C6288),OP$(288):FOR I 
=1 TO 39:READ A:HOV$(I)=CHR$CA):REHT I 

5 C255=255:C64=04iC256=256:COHSOt=5327 
9:KEY=764 

6 B$=" ":B$ 16280) ="_■': B$ 12) =B$:OP$=B$: 
BLK$=B$:NULL$=B§ 

7 GRAPHICS ZíPOKE 559,Z:P0KE 718,196:P 
OKE 712/196:P0KE 789,14:P0KE 752,1 

B POSITION 2,1SP0KE 82,2;P0KE B3,39i? 


CALENDARIO DE PLANIFICACION 



MUNDO ATARI 1338 


ENERO 

FEBRERO 

MARZO 

ABRIL 

HAYO 

JUNIO 


G JULIO I" 
H AGOSTO I" 
I SEPTIEMBREI" 
J OCTUBRE I" 
K NOVIEMBRE | M 
L DICIEMBRE I" 


SELECCIONE EL MES 


r':POKE 55 


9,34:CL0SE ttl 

22 OPEN 81,4,Z, ,, K5"¡6ET ttl,R:CL05E ttl 

23 R=R-64tIF R(1 OR R>12 THEN 22 

24 RESTORE 9999*R:READ MONTH$,NUM¡M=R 

36 DAY=Y!POSITION 2,6:? MM$:Y=1985!X=1 
1 

37 ? "► INGRESE EL AÜO":? :? 


30 ? "U5E HJfWiTi A\0 CRECIENTE*':? :? " 
USE fcTNBüül ASO DECRECIENTE":? I? "PRES 
IONE EKEEIl PARA EL ASO":? 

39 ? :? :? " r——i" 


48 ? " l imgHl 9B5l» 

41 ? 1 ■ ■ — l“:POICE 559,34:F0R 


R=1 TO 22:NEKT R 

42 G=PEEK(CONSOL):IF G=7 THEN 42 

43 IF G=3 THEN Y=Y?1 

44 IF 6=5 THEN Y=Y-1 

45 IF G=6 THEN YEAR=Y:GOTO 58 

46 IF Y<1985 THEN Y=1999 

47 IF Y>1999 THEN Y=1985 

48 POSITION H,18:? Y:FOR R=1 TO 32:NEX 
T R:GOTO 42 

58 POSITION 2,6:? HH$:? 

51 ? "UD. INGRESO EL 5GTE.MES:":? 

52 ? MONTH$JYEAR:? :? 

53 ? "SI ESTA CORRECTO, ENTONCES" 

54 ? "PRESIONE LA TECLA START.":? 

55 ? "SI ESTA INCORRECTO, ENTONCES PRE 
5I0NE" 

56 ? "LA TECLA OPTION." 

57 A=PEEK(CONSOL):IF A=7 THEN 57 

58 IF A=6 THEN GOSUB 988:GOTO 68 

59 CLOSE ttlrCLOSE H2:CL0SE #3:GOTO 7 

60 ? "5":P0KE 559,Z:PONE 7I8,286:P0KE 
789,6:PONE 712,20:P0KE 82,2:P0KE 83,39 
:POKE 752,1¡GOTO 62 

61 ? "I I I I • • * 

|":RETHRN 

62 ? :? " i — 


-," 

63 ? "I 

I" 

64 ? " l il ilí 1 


65 ? "IDOH |LUN |MAR |MIE |JUE |VIE |S 
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DISKETTE 


AB |" 

66 FOR T=i TO 5:? "| 1 1 f ' ■ 




TION 11,T:? '1 1" 



á?7 MFKT T:POSITION 11.21:? '*- 

EKT T 



78 ? “1 1 i ■— 1 - 1 . 1 - 


428 POSITION 13,9:? “INGRESE FECHA" 

—— 1 *" 


429 POSITION 13,18.*? "A EXAMINAR": POKE 

71 ? M | 1 l"l? "1 1 1" 


752, Z 



431 TRAP 431:POSITION 13,13:? "t* iii 

73 MOPT= f40“LEU(MONTHS)) /2 


"¡:INPUT NI6;DO AY$:POKE 752,1:00=VAL(0 

74 POSITION M0PT,2:? NONTH$ 


DAY$):IF 00(1 OR 00>NUH THEN 431 

75 P0SITION 3,2:'? YEAR:POSITION 33,2:? 


432 POSITION 13,9!? " 

YEAR 



76 605UB 310 


fffrfffff+t+f+fff " 

77 POKE 559,34 


433 POSITION 13,8:? 'flHQHi'iC 

80 IF PEER(CONSOL)O 3 THEN 80 


0L=1:R0M=1 

90 GOTO 400 

98 ? « 1 1 1 1 1 1 1 


434 OP$=B$(200*00-199) 


436 FOR T=1 TO 10 

235 IF PEEK (CONSOL) 06 THEN 1235 


437 POSITION 12.T+9:? OP$(28*T-19,20*T 

310 60SUB 1000 


):NEXT T:POKE 82,12:P0KE 03,32:? "►"¡ 

340 SP=1+5*C:5=1:F0R Y=6 T0 21 STEP 3 


439 CL05E N1:0PEN N1,4,Z,"K:":C0L=1:R0 

350 5P=i*5*C:5=l:F0R Y=6 TO 21 STEP 3 


H=1;BLK$=OP$:POSITION COL+10,ROM+9:POK 

360 FOR X=6 TO 37 STEP 5 


E 752,z:? *1"; 

365 IF S=1 THEN X=SP 


440 6ET Ni,R.‘IF R=155 THEN 455 

367 IF 5>9 THEN X=X-1 


441 IF R=27 THEN 500 

370 POSITION H,Y:? 5 


442 IF R=126 THEN 460 

371 IF 5T$(S,5)="N" THEN POSITION H,Y* 


443 IF R>155 ANO R<160 THEN 440 

1:? "N" 


444 IF R>27 ANO R<32 THEN 440 

374 IF 5>9 THEN X=XU 


446 IF R>253 THEN 440 

375 IF S=T THEN RETI1RN 


447 C0L=C0L+1:IF R=32 THEN R=S5 

376 5=5*1:NEKT K:NEHT Y:RETURN 


448 IF COL)20 THEN COL=20 

400 GOSUB 1200:POKE 82,22 


449 IF COL<Z THEN COL=Z 



450 POSITION COL+10,R0M*9:IF R=155 THE 

402 ? '1 OPCIONES 


N ? "11"J CHR$(R):R=95:BLK$(COL,COL)=CH 



R$(R)¡GOTO 440 

r 


451 BLK$(COL,COL)=CNR$(R):IF R=253 THE 

404 GOSUB 650 


N BLKí(COL,COL)=CHR$(95) 

412 Y=5:X=1 


452 ? CHR$(R);:GOTO 440 

413 G=PEEK(CONSOL):IF 6=6 THEN 420 


455 REM 

414 IF 6=7 THEN 413 


456 OP$(20*ROM-19,20*ROH)=BLK$ 

415 IF 6=5 THEN Y=Y*2:X=X*1:IF X>5 THE 


457 ROK=ROM+l:IF ROM)10 THEN RÚM=1 

N Y=5¡X=1 


458 BLK$=OP$(20NROM-19,20NROM) 

416 IF 6=3 THEN Y=Y-2:X=X-1:IF X<1 THE 


459 C0L=1¡R=I55:60T0 450 

N Y=13:X=5 


460 REM 

417 POSITION 23,5:? CL$ 


461 C0L=C0L-1 

418 POSITION 23,Y:? A$((15*X)-14,15*X) 


462 IF C0L<1 THEN C0L=1:60T0 440 

419 GOTO 413 


463 ? "+_+"i:BLK$(COL+1,COL*1)="_":60T 

420 CHOICE=X 


0 440 

421 IF X=2 THEN FOR T=1 T0 5:CL05E NT: 


500 GOSUB 940 

NEXT T:60T0 7 


501 0P$(20*ROM~19,20NROM) =BLK$ 

422 IF X=3 THEN 600 


502 IF OP$=NULL$ THEN ST$(00,00)=" ":G 

423 IF X=4 THEN 1220 


OTO 504 

424 IF X=5 THEN 60SUB 1205:GOTO 80 


503 ST$(00,00)="•»:B$(200*00-199,280*0 

426 POKE 82,12:POSITION 11,7:? "T*™ 


0)=0P$:TRAP ERROR 
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DISKETTE: continuación 


504 CL0SE ttlSOPEN ttl,8,Z,FS 

505 ? Hi;ST$ 

506 FASTS(1O,10)=CHR$(11) 

107 0=USR (ADR (FASTS),1,ADRC0$),6200):C 

lose düpop ¡goto 00 

600 POSITI0N 4,7:? 

1 

601 P0SITION 4,0:? '1 INGRESE HES PARA 

BORRAR f 

602 POSITION 4,9:? *1 INGRESE A\0 BEL H 

ES •" 

601 POKE 752,0:POSITION 4,10:? 'Ibbh 

»' 

606 TRAP 60:POSITION 27,0:? 

607 INPUT ttl6,MK$:P0KE 752,1:? :FOR T= 
1 TO LEN(MtS):IF HH$ÍT,T)=" " THEN HK$ 
m= ,m :6OT0 615 

608 NEXT T 

615 RESTORE 10000:TRAP 620 

616 FOR T=1 TO 12 

617 REAB F$:IF HHSOFS THEN 617 

619 IF HH$=H8NTHS THEN FG=99 

620 GOTO 622 

621 POP :? "0":CLOSE ttl¡COTO 606 

622 F$="0:":IF LEN(HHS)<6 THEN F$(LEN( 
FS)+l)=HK$:GOTO 625 

621 FS(LEN(F$)*1)=HH$(1,0) 

625 POKE 752,0.‘POSITION 26,9:? M **«j:I 

NPUT 1116;Y$:POKE 752,1 

629 YE=VAL(Y$)¡IF YE<1985 OR YE)2000 T 

HEN ? CHR$(253)¡GOTO 625 

630 F$(LEN(FS)*1)="," 

631 YE=YE-19O0 

632 FS CLEN CF$)*1) = 5TR$ <YE) 

633 POSITION 4,8:? *1 BORRANDO MES.... 

I" 

634 POSITION 4,9:? *1 

r 

635 TRAP 4000:MIO 33,tt4,Z,Z,F$:IF FG=9 


9 THEN RUN 

636 GOSI1B 1205¡GOTO 80 
650 ? *1 f'S? 'II 

■■■!':? *1 I” 

653 ? *1 IR NUEVO HES I":? '1 
r*:? <1 BORRANDO HES I" 

656 ? '1 r*:? *1 DIRECTOR 

10 P¡? ’1 I" 

659 ? *1 SAL VENTANA f':? '1 
f't? '1———I" 

661 A$=* 


IR HUEVO MES 


665 CL$="DAT05 




«■**IR NUEVO HES ***«-ff*****ff*f«-f0OR 
RANDO HES ***ff*fff*****t*f" 

666 CL$ CLEN(CL$)*1)^"DIRECTORIO ** 
tftfttftttffftfSAL VENTANA " 

667 RETURN 

900 REH 

901 CLOSE ttl 

902 FS="DS":F$(LENCF$)+1)=HONTH$ 

903 IF LEN(H0NTH$)<8 THEN FS(LEN(F$)*1 
)=". M :FS(LEN(F$)*1)=STR$(YEAR-1900):GO 
TO 905 

904 FS(11,11)="."5 FS(12,13)=5TRS(YEAR- 
1900) 

905 TRAP 910:OPEN ttl,12,Z,F$ 

906 INPUT ttl,STS 

907 FASTS(10,10)=CNR$(7) 

908 K=USR(ADR(FASTS),1,ADR(8$),6200) 

909 CLOSE ttl¡RETURN 

910 TRAP 2000: CLOSE ttÜGOSUB 2000 

911 ? "64**4►CREANDO NUEVO HES**" 

912 ? "►NOMBRE ARCHIVO:";F$ 

913 TRAP ERROR:OPEN ttl,8,Z,F$ 

914 FA5TS(10,10)=CHRS(11) 

915 STS=" ... 

ttl;STS 

916 B$="_":8$(6200)="_":BS(2)=BS:? ttl; 
8$¡CLOSE ttl¡RETURN 

940 POKE 752,1:POKE 83,39¡POSITION 14, 
22:? " 5ELECT=IMPRE50RA" 

941 POSITION 14,23:? " 0PTI0N=SALVA 5 
TART=SALIR"f 

942 AA=PEEK(CONSOL)¡IF AA=7 THEN 942 

943 IF AA=3 THEN RETURN 

944 IF AA(>5 THEN POP ¡GOSU0 1205¡GOTO 
80 

960 REH 

961 CLOSE H5:TRAP 981:OPEN tt5,8,Z,"P¡" 

962 FOR T=1 T0 LEN(OP$):IF OP$(T,T)=CH 
RS(95) THEN OPS(T,T)=" " 

963 NEXT T 

965 ? W5; "MMNMMNMMMMMNNMIIMNMKMN N* 1 

966 ? D5;"* DATOS *" 

967 ? H5; "NMMMMMMMNMMKMMMMMM N N itM* 1 

968 ? H5¡? tt5;H0NTH$;" ";DD;",";YEAR¡? 
tt5 

969 FOR T=1 TO 181 5TEP 20¡? tt5;0P$(T, 


T+19):NEXT T 

MI ’ 


U5:? ttS;"» 
CLOSE US 


981 POSITION 14,22:? " 


982 POSITION 14,23:? "OPERACION COHPLE 
TA. " 
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DISKETTE: continuación 


983 FOR T=1 TO 2i8¡NEXT T:POKE CONSOL/ 
Z 

984 POP :GOSUB 1205:GOTO 80 
1808 REtt 

1881 YE=YEAR-1985 

1882 RESTORE 1818+YE 

1883 FOR T=1 TO M:READ C:NEXT T 

1885 RESTORE 1858:FOR R=i TO M:READ T: 
NEXT R:IF H=2 AND YEAR/4=INT(YEAR/4) T 
HEN T=TU 

1886 RETURN 

1818 DATA 3/6/6/2 f 4/7/2/5,1/3/6/1 

1811 DATA 4/7/7,3,5,1,3,6,2/4/7,2 

1812 DATA 5/1/1,4,6,2,4,7,3,5,1,3 

1813 DATA 6,3,3,6,1/4/6,2,5/7,3,5 

1814 DATA 1,4,4/7/2/5,7,3,6,1,4,6 

1815 DATA 2,5,5,1,3,6,1,4,7,2,5,7 

1816 DATA 3/6 f 6,2,4/7/2,5,1,3,6,1 

1817 DATA 4,1,1,4,6,2,4,7,3,5,1,3 

1818 DATA 6,2,2,5,7,3,5,1,4/6,2,4 

1819 DATA 7,3,3,6,1,4,6,2,5,7,3,5 
1828 DATA 1,4,4,7,2,5,7,3,6,1,4,6 

1821 DATA 2,6,6,2,4,7,2,5,1,3,6,1 

1822 DATA 4,7,7,3,5,1,3,6,2,4,7,2 

1823 DATA 5,1,1,4,6,2,4,7,3,5,1,3 

1824 DATA 6,2,2,5,7,3,5,1,4,6,2,4 
1858 DATA 31,28,31,38,31,38,31,31,38,3 
1,38,31 

1288 SCR=PEEK(881*PEEK(891 *256 

1281 SAVADR=SCR~1824 

1282 D=USR(ADR(MOV$),SCR,SAVADR,988):R 
ETURN 

1285 D=USR(ADR(MOVI),SAVADR,SCR , 988):R 

ETURN 

1228 REN 

/ 1222 CLOSE (ti:OPEN ltl,6,Z,"D:*.«“ 

1223 POSITION 7,3:? 


1224 POSITION 7,4:? 

1 “ 

1225 POSITION 7,5:? 


*1 


'I 


DIRECTORIO 


1226 FOR T=1 TO 16:TRAP 1238:INPUT Itl, 
FS:GOSUB 1248 

1228 POSITION 7,T*5:? *1 ";F$(2,17)J" I 
“:NEXT T 
1238 CLOSE 881 

1231 POSITION 7,T*5:? ™ 


. 1232 POSITION 7,T*6l? , 1 ,, jF$í M f 
1233 POSITION 7,T+7:? 


1234 POSITION 14,23:? "PRESIONE START" 


i 

1236 GOSUB 1285:TRAP ERROR:GOTO 88 
1248 IF F$(5,16)="5ECT0RE5 LIBRES" THE 
N 1238 

1241 TRAP 1242:IF VAL(F$(11,12))>84 TH 
EN RETURN 

1242 POP :T=T-l:NEXT T:RETURN 
2888 ? "XQ**" 

2881 ? "NO ESTA EL ARCHIVO";HONTH$:? » 


EN ESTE DISCO!***" 

2882 ? " BiagIiin =8E-IN6RESE-DAT0**" 


2883 ? 


bCREAR NUEVO ARCHIVO" 


2884 G=PEEK(CONSOL):IF G=6 THEN RETURN 
2886 IF G=3 THEN POP :CLOSE 112¡CLOSE » 
2:CLOSE t(3:CL0SE Itl:GOTO 7 


2887 GOTO 2884 

3888 DATA 184,184,184,18,18,18,18,178, 
169,7,157,66,3,104,157,69,3,184,157 
3818 DATA 68,3,184,157,73,3,184,157,72 
,3,32,86,228,132,212,168,8,132,213,96 
3188 DATA 184/184,133,215,184,133,214, 
184,133,217,184,133,216,184,133,218,18 
4,178,168,8 

3118 DATA 177,214,145,216,288,208,4,23 
8,215,230,217,282,288,242,198,218,16,2 
38,96 
4888 REH 

4881 GRAPHICS Z:POKE 718,78:P0KE 789,1 
4:PONE P0KE82,2¡PQKE 83,39:? 

4882 G=PEEIC(i95):IF G=170 THEN 4887 

4883 ? "HA OCURRIDO UN ERROR!".*? :? 

4884 IF G=162 THEN ? "EN ESTE DISCO NO 
SE PUEDE INCORPORAR HAS ARCHIVOS ":? 

:? :? :? "RUNtm**":END 

4885 IF G=144 THEN ? "NO HAY DISCO EN 
DRIVEttl O SU DISCO ESTA PROTEGIDO" :END 

4886 ? "ERROR-";G;CHR$(155);"***RUNftt 
♦ff'íEND 

4887 ? "EL ARCHIVO DE ESTE MES NO ESTA 
EN ESTE DISCO.";CHR$(155);"***RUNttt<- 

**":END 

18888 DATA ENERO,31 

18881 DATA FEBRERO,29 

18882 DATA MARZO,31 

18883 DATA ABRIL,38 

18884 DATA HAYO,31 

18885 DATA JUNIO,38 

18886 DATA JULIO,31 

18887 DATA AGOSTO,31 

18888 DATA SEPTIEMBRE,38 

18889 DATA OCTUBRE,31 
18018 DATA NOVIEMBRE,38 

18811 DATA DICIEMBRE,31 • 
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ASSEMBLER 


Directo 
al B5Ü2 



Este mes continúa la columna con una serie de 
cortos programas en ASSEMBLER para que pueda 
practicar usando el Editor de este lenguaje. 

Para adquirir este programa en casete o dis- 
kette consulte el Catálogo adjunto en la sección 
Utilitarios. ■ 


EJERCICIO 1: 

— Uso de instrucciones de transferencia. 

Digite el siguiente listado con el Editor de 
ASSEMBLER: 


10 

*= $0600 

20 

LOA «$0F 

30 

TAX 

40 

LOA tt$6A 

50 

TAY 

60 

BRK 

70 

.ERO 


Explicación de líneas de listado: 

10 Fija localización inicial para el programa ob¬ 
jeto (página seis). 


20 Carga el acumulador con el valor $ 0F (15 
decimal). 

30 Transfiere este valor al registro X. 

40 Carga el acumulador con $ FF (255 decimal). 
50 Transfiere este valor del acumulador al regis¬ 
tro Y. 

60 Detiene la ejecución. 

Digite la instrucción: 

ASM 

y al cabo de algunos segundos aparecerá en pan¬ 
talla el programa ilustrado más abajo. Esto indica 
que el programa de códigos objetos se encuentra 
localizado en página seis. 
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ASSEMBLER 


A continuación digite la instrucción: 

BUG 

Para ejecutar digite: 

G600 

En pantalla aparecerá lo siguiente: 



10 

K « 

«0600 ^ 

| 0600 090f 

20 

1 00 

«sor 1 

0602 00 

30 

10X 


0603 0>60 

40 

LOO 

ti í 6 ft 

¡ 0606 06 

60 

TOY 


0606 00 

60 

BftK 


060/ 

70 

. t NO 


! tut 

1 euo 




I OE BUG 

1 0600 
| 0606 
|L oeeuo 

0:60 Xror 

Y=60 f- 

3^S=0^. 


Ahora podrá apreciar los valores correspon¬ 
dientes a los indicados en el programa inicial. 

Usted puede continuar con modificaciones 
en los valores de las instrucciones, para determi¬ 
nar y comprobar los valores que aparecen en los 
registros. 



EJERCICIO 2: 

- Sumar dos números. 


Digite con el Editor el siguiente programa: 


11 

*= $0600 

15 

L0A «160 

25 

CLC 

3# 

A»C «95 

40 

STA ANSMER 

50 

BRK 

60 

AN5MER= $0202 

70 

• EN0 


Explicación de líneas: 

10 Fija posición inicial de programa objeto en 
página seis. 


15 Carga el acumulador con el valor 160 deci¬ 
mal. 

20 La instrucción CLC limpia el CARRY (bit), 
coloca un 0 en el bit carry del 6502. No olvi¬ 
de de introducirla en todas las operaciones 
de suma para evitar errores. 

30 La nueva instrucción adiciona el decimal 95 
al valor presente en el acumulador. 

40 Esta instrucción mueve el valor presente en 
el acumulador hacia una localización de me¬ 
moria designada por ANSWER. 

50 Detiene la ejecución. 

60 Fija el valor de la localización ANSWER 
$ D202. 



¿Cuál es el valor correspondiente decimal? 

D = 13 * 16= 208 
2 2 

Valor primer NIBBLE 

210 

210 * 256 = 53760 

Valor de 0202=53762 
Digite a continuación: 

ASM 

y el programa se localiza en la memoria para la po¬ 
sición designada en página seis. 

Digite: 

BUG 

y luego: 

G600 

Finalmente examine el valor de la localización 
D202. Ella debería contener el valor 255 ($ FF). 

¿Cómo examinar el contenido de esta locali¬ 
zación? 

Ese es el desafío para nuestros lectores. Envíe 
cartas con esta respuesta y gane premios. 

El próximo mes continuaremos con nuevos 
ejercicios. • 
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ASSEMBLER: continuación 



USR 


TECLAS DE CONSOLA 


La rutina USR de este mes permite optimizar el 
uso del teclado de consola, con lo que se aumen¬ 
tan las posibilidades de direccionamiento por la 
mayor cantidad de valores registrados. 


Para recordar este tema remítase a MUNDO- 
ATARI No. 2, página 24. Con la rutina de hoy po¬ 
drá usted detectar valores con la tecla SHIFT. 

Para llamar la rutina digite: 

101 GOSUB 31000 

y la función para llamarla es la siguiente: 

BUTTON = USR (1536, D) 

en la cual debe introducir el parámetro D que per¬ 
mite 3 valores: 

0 = ON 
1=OFF 

128 = ON y detecta la última tecla presionada 

Los valores de retorno son los siguientes: 



(0) 

normal 

(1) 

ampliado 

Sin presionar 

7 

0 

START 

6 

1 

SELECT 

5 

2 

OPTION 

3 

4 

SHIFT START 

n 

9 

SHIFT SELECT 

n 

10 

SHIFT OPTION 

n 

12 


Como esta rutina funciona durante el VBI, 
queda activada permanentemente mientras no se 
modifique la rutina. 

Utilice esta rutina en sus programas y aumente 
las posibilidades de selección de menú. 

Escríbanos para comentar el avance de su co¬ 
nocimiento de la máquina. 

Hasta el próximo mes. 


10 GOSUB 31000 
20 END 

31000 RESTORE 31100:F0R MX=1536 T0 153 
6+111¡READ KXXlPOKE XX,MXX:NEXT XX:RET 
URN 

31100 DATA 169,0,141,111#6,104,208,1,9 

6,170,104,104,141,112,6,202 

31110 DATA 240,5,104,104,202,200,251,4 

4,112,6,240,30,40,5,169,1 

31120 DATA 141,111,6,169,6,133,213,169 

,112,133,212,162,6,160,75,169 

31130 DATA 7,32,92,220,169,0,141,112,6 

,96,169,200,133,213,169,31 

31140 DATA 133,212,162,220,160,90,169, 

7,76,92,220,173,15,210,41,0 

31150 DATA 13,31,200,73,15,174,111,6,2 

00,9,170,41,247,240,13,130 

31160 DATA 76,105,6,170,41,247,240,1,1 

30,141,112,6,76,98,226,0 * 
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TIPIANDO 


PRIMER JUEGO DEL MES: 

Rebotes 



™ m Já/ A m 


i mj * I 


! L XmJ 



£ N este juego simple pero de gran entretención 

participan 2 jugadores. 

En pantalla aparecerán desplegadas varias fle¬ 
chas en diferentes sentidos. 

Por medio del joystick tendrá que colocar una 
flecha en frente de su disparador, que se encuentra 
en la orilla, Al disparar el proyectil chocará con la 
primera flecha que encuentre y tomará la direc¬ 
ción indicada por ella. Y asi' sucesivamente, hasta 
llegar a la orilla. 

Ganará quien logre mayor cantidad de flechas. 


8 BRK=l:IF PEEKC53279)=5 THEN BRK=8 
li G05UB 568 
28 G05UB 588:GOTO 128 
48 POKE 77,8:PY=LYlPX=2+J4«CPT=2>:U=2+ 
2#CPT=21:P0KE 5C+PX+40«PY,18 
58 POKE 5C+PX+48*PY,8:PY=PY+CU=3)-(U=1 
) :PX=PX+CU=2)-(U=4> :PP=PEEKCSC+PX+48*P 
Y>:POKE SC+PX+48WY,18 
68 FOR 8=1 TO 18:NEXT B:IF PP=12 OR PP 
=13 THEH GOSUB 348:RETURN 
78 ON IPP(>4 AR8 PP<>5 AN8 PP<>6 ANO P 
P<>7 ANO PP<>8 ANO PP<>9) GOTO 58:POKE 
718«67:POKE 5C+PX+48«PY,83 
88 FOR X=1 TO 288 STEP 3:S0UN0 1,X,8,1 
8:NEXT Xi50UN0 1,0,8,0:P0KE 718,35 
98 U=1*ÍPP=61+2*CPP=4 0R PP=8I+3*CPP=7 
)*4*CPP=5 OR PP=9>:51=51+(PT=11:52=52+ 


(PT=2):GOSUB 488 

188 NA=NA~(PP<>8 ANO PP<>9J:0N NA=8 GO 
TO 428:GOSUB 488.‘GOTO 58 
128 LJK=28:GOSUB 618:PT=1:0T=36:GOSUB 
288:LP=8:LX=1:LY=Y1J GOSUB 168:Y1=LY 
138 LJK=8:GOSUB 618:PT=2:0T=36:G05UB 2 
88:LP=9:LX=37:LY=Y2:GOSUB 168:Y2=LY 
148 GOTO 128 

168 TR=5TRIGC8J*CPT=1J +5TRIGI1J*CPT=2J 
:0N TR=8 60T0 40:5U=5TICKC0)*CPT=i>+ST 
ICK<1J*CPT=2J 

178 ON 5UÜ13 ANO SV<>14 GOTO 168:POKE 
SC+LX+48*LY,8:LY=LY+1*CSU=1W-1«C5M=1 
4):LY=LY+1*(LY<1)-1»CLY>19) 

188 POKE SC+LX+48#LY, LP .* FOR 0=1 TO 15: 
NEXT 0:G0T0 168 

280 POKE 5C+1+40#Y1,8:POKE 5C+37+48*Y2 
,9:P0SITI0N 9,8:? '■ »ig«g4iaN*l¡hW :C 
HRS(OT) 

218 TR=5TRIGC8)*CPT=1>+5TRIG<1>#CPT=2J 
:IF TR=8 THEN FOR 0=1 TO 288:NEXT 0:G0 
TO 258 

228 5V=STICKC8HKPT=1) +STICK C1J«CPT=2> 
:0N SU014 ANO SU<>13 ANO SV<>7 ANO SU 
<>11 GOTO 208 

238 0T=36*<SU=7)+37#(SU=111*38»CSU=141 
+39«C5U=13):G0T0 288 
258 P05ITI0N 9,8:? 
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TIPIA ND O: con tinuación 



":CX=20:CY=10:CP=PEEK(5C+CX448*CY):POK 


E SC4CX440*CY,DT+96 
268 TR-5TRI6(8)*(PT=i)45TRI6(i)*(PT=2) 
278 IF TR-0 AND CP<>8 THEN SOUND 1,42, 
2,12:F0R 8=1 TO S8:NEXT D:50UND 1,8,0, 
8:60T0 268 

280 IF TR=8 AND CP=0 THEN POSITION CK, 
CY:? CHR$(DT):F0R D=1 TO 280:NEXT D:NA 
=NA+1:G0SUB 488:RETURN 
290 SV=5TICK(0)*(PT=1)+STICK(1)*(PT=2) 
:0N 5V=15 GOTO 260:POKE 5C+CK*48*CY,CP 
388 CX=CX-1#(SÜ=9 OR 5U=10 OR SV=11)U 
*(5V=S OR SV=6 OR 5V=7) 

318 CY=CY-l*fSM=6 OR 50=18 OR 50=14)+1 
*(5V=5 OR 50=9 OR 50=13) 

320 CX=CX*1*(CX<3)-1*(CX>35):CY=CY-1*( 


CY>19m*(CY<l) !CP=PEEK(5C+CX440*CY) :P 

OKE SC4CX*48*CY,DT+96:GOTO 268 

348 ON PP=13 GOTO 370:FOR H=PX TO 8 5T 

EP -l:POKE 5C*H*48»PY,ll:50UND l,H+50, 

18,8:FOR 0=1 TO 15:NEXT D 

350 FOR H=PX TO 8 5TEP -i¡POKE 5C+H448 

*PY,11:SOUND 1,H+50,10,8:FOR 0=1 TO 15 

:NEXT D:POKE 5C+H+40*PY,12 

360 POKE 5C4H+48*PY,12:NEXT H: SOUND 1, 

0,8,0:RETURN 

378 FOR H=PY TO 1 5TEP -1:P0KE 5C+PX+4 
8*H,14¡SOUND 1,H+50,18,8:FOR 0=1 TO 15 
:NEXT D:POKE 5C+PX+48*H,13:NEXT H 
388 SOUND 1,0,0,0:RETURN 
480 POSITION 9,21:? 51¡POSITION 37,21: 
? 52¡POSITION 25,21:? NA;" "¡RETURN 
420 GRAPHICS 17¡POSITION 5,2:? tt6;'fQQ 
E0KHB":POSITION 5,3:? U6;"=========*' 

¡POSITION 4,5:? tt6¡:SI 
438 POSITION 4,7:? N6;■1IIBG^iE2^ ,, ;52:1 
F S1=S2 THEN POSITION 5,18:? II6; ,, TERMI 
NO!":GOTO 458 

440 H=l*(52>51) ¡POSITION 3,10:? tt6;'fi!] 
EEE03";H; H GEGE" 


450 POSITION 3,14:? lierfflra^START)" 
¡POSITION 3,15:? tt6; ,a ÍÍMM^" 

460 FOR Z=1 TO 2¡RESTORE 658:FOR X=1 T 
O 8:READ P:READ D:SOUND 1,P,10,8:SOUND 
2,P+18,10,6:FOR DE=1 TO D:NEXT DE 
470 SOUND 1,0,8,8:SOUND 2,8,8,0:NEXT X 
:NEXT Z 

488 ON PEEK(53279)06 GOTO 488¡GOTO 20 
588 GRAPHICS 8:POKE 752,1:POKE 756,ST/ 
256:POKE 710,35:SC=PEEK(88)+256*PEEK(8 
9):51=0:S2=0:Yl=18:Y2=18 
505 POKE 77,8.‘IF BRK THEN POKE 16,112: 
POKE 53774,112 

510 COLOR 45:PL0T 0,1:DRAHTO 8,19:PL0T 
38,1:DRAHTO 38,19 

511 COLOR 44:PL0T 8,0:DRAHTO 38,0:PLOT 
8,28¡DRAHTO 39,20 

528 NA=0:POSITION 0,21:? "JUGAD0R1: 
NUMERO FLECHAS JUGADOR2:“:Y1=10:Y2=10 
538 Y=INT(RND(0)*19)*1:X=INT(RND(8)*33 
)+3:V=INT(RND(8)*4) U :IF PEEK(5C+X+48* 
Y) 08 THEN 530:POKE SC+X+48*Y,V 
540 POKE 5C*X*-48*Y, V:NA=NA+1: GOSUB 488 
:0N NAO50 GOTO 530:RETURN 
568 POKE 186,PEEK(748)-5¡GRAPHICS 17¡P 
Q5ITI0N 6,7¡? U6;"REB0TES"¡POSITION 6, 

8¡? 1*6;"-":POSITION 8,18 

565 POKE 77,0:IF BRK THEN POKE 16,112: 


POKE 53774,112 

578 POSITION 1,13:? *6; > Sa¡B í=EH»ITi 3 

Itt 1 ': ST= (PEEK (106) 41) *256 

575 HOVE=ADR ( >a hhSdhn0hSIQ(OBhnE3td¡l8QnK 


¡BQlU 


fqFnP jFoCf 


^") 


576 REM X=U5R(HOVE,FROM-ADDRESS,TO_ADD 
RESS,ANOUNT) 

588 X=USR(NOVE,57344,ST,1024) 

581 Q=ADR ("^ ALT *HW**<i D I* 11111 ' 

MU (¿ tntTTMjm rmrnnuu i (¿wu i 

bdqb r*) 

585 X=USR(M0VE,Q,ST432,88) 

598 IF (STRIG(8) AND STRIG(l)) THEN 59 

8 

688 RETURN 

618 FOR K=(LJK=28)*28 TO (LJK=8)*28 ST 
EP (2*(LJK=0)-1) 

615 SOUND 2,(~2.179*K4121),14,14 
628 POSITION K,22:? " ======== ";:50UN 

O 2,8,0,0:NEXT K 

638 POKE 77,8:IF BRK THEN POKE 16,112: 
POKE 53774,112 
635 RETURN 

658 DATA 62,28,58,20,54,28,48,38,48,30 
,54,20,58,20,62,58 • 
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TIPIANDO: continuación 


SEGUNDO JUEGO DEL MES: 

Cuatro 



£STE es un juego estratégico en BASIC, para 

competir con el ATARI o con otro jugador. 

Digite el listado siguiente y grábelo en su pe¬ 
riférico (diskettera, casetera). 

Digite RUN y aparecerá en pantalla una atrac¬ 
tiva presentación con Interrupción de la Lista de 
Despliegue (DLI, será el tema de continuación de 
la columna Técnicas una vez terminado el actual 
de Player/Missil). 

Las líneas inferiores permiten seleccionar el 
color usado por cada jugador por medio del joy- 
stick. Seleccione ATAR! para 1 solo jugador. 

Si usted juega contra el computador el pro¬ 
grama usará una rutina de inteligencia artificial, 
que discriminará ía mejor jugada contra usted. 

El juego presenta también la modalidad de 
random, en la que el ATARI selecciona al azar 
las posibilidades. 

Como jugar: 

Después de seleccionar los jugadores (con 
OPTION) presione START para iniciar el juego. 

La pantalla muestra el número de la movida 
y el turno del jugador. Mueva el joystick hacia 
arriba o hacia abajo y presione el botón. Apare¬ 
cerá un cuadrado correspondiente a su color en 
la línea, 

Sucesivos cuadrados aparecerán en las lí¬ 
neas siguientes. Gana quien complete 4 cuadra¬ 
dos del mismo color en una línea. 

Usted puede terminar con SELECT. 


6 REH JUEGO CUATRO HAYO 1988 
10 GRAPHICS 7:PQKE 70B,0:PQKE 789,0:PO 
ICE 710,0:01=9 

20 DIM D(3,1),8(9,7),Píi) ,H(6) ,P$(42) 


30 DL=PEEK(S60)+PEEK(561)#256:POKE DL+ 

85,71¡P0KE DL+88,12 

40 ? " CUATRO":POKE 752,1:? " 

II 

50 ? 11 HUNDOATARI HAYO 88" 

60 G05UB 30000 

65 POKE 708,14:P0KE 709,8:POKE 710,190 
70 POKE CA,26:POKE CB,26 
80 POKE 5ET+82,198:POKE SET+83,190 
90 RESTORE 

100 FOR T=i T0 6:F0R Y=0 T0 5:X=T#16+Y 
*2+58:POKE 5ET*T*13+Y-5,H 
118 POKE SET*T#13-Y“6,X:NEXT Y:NEXT T 
120 FOR T=0 T0 3:READ X,Y:D(T,0)=X:D(T 
,1)=Y:NEXT T:DATA 1,1,0,1,-1,1,-1,0 
130 P$=" RANDOM STICK 1 STICK 2ATARI 
NEGROBLANC":P(0)=2:P(1)=4 
140 ? D6;CHR$(125):? CHR$(125);¡POKE S 
ET+82,0:POKE SET+83,0:POKE DL+85,198 
150 POKE DL+88,134:POKE DL+89,144:POKE 
DL+90,130:POKE 5ET+83,190:POKE 77,0 
160 GOSUB 490:X=P(0)*8:? " NEGRO: ";P$ 
(X-7,K)J" BLANC: "¡:X=P(1)#8 
170 ? P$(X-7,X):? "AJUSTE CON J0Y5TIC 
K: BOTON Y INICIA ":? CHR$(29); 

180 POKE SET+81-A,0:POKE 5ET+A+88,164 

190 K=STICK(0):P=PEEK(53279):IF NOT S 

TRIG(0) OR P=6 THEN 230 

200 IF K=13 OR K=14 OR P=5 THEN GOSUB 

490:A= NOT A:GOTO 180 

210 IF K<14 OR P=3 THEN K=P(A):K=K+1:K 

=K-4#(K=5):P(A)=K:G0T0 160 

220 GOTO 190 
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TIPIANDO: continuación 



230 POKE SET+A+80,0:? CHR$(29);CHUS(15 
61j(F0R Y=1 TO 6:H(Y1=8¡NEXT Y¡N=1 
240 P0KE DL+90,140¡POKE SET+83,0:POKE 
DL+89,135¡POKE SET+82,178 
250 A=PEEK(53770)>127¡FOR X=8 TO 9:F0R 
Y=0 TO 7¡B(X,Y)=0:NEXT YíXEXT X 
260 ? :? CHR$(28);¡GOSUB 688:IF N=49 T 
HEN ? 11 UN JUEGO M!":GOTO 540 
270 POKE SET+80+A,164¡? Nj". '»;P$(33+5 
*A,37+5«0);» TURNO"; 

280 B=P(A)-2:T=0¡ON P(A) GOSUB 350,410 
,410,560 

290 X=H(T):HCT)=X-1:COLOR 2~A¡F0R D=X* 
20-16 TO X*20-1:PLOT D,T*13-18 
300 DRAMTO 0,T#13-l:NEXT D:Y=T¡B(X,Y)= 
A+l 

310 FOR D=B TO 3:G05UB 368:IF R<3 THEN 
NEXT D.'GOTO 330 

320 FOR T=1 TO 5:? CHR$(30);:NEXT T:? 
"GANA!!!";¡T=0:R=T¡COLOR 3:GOTO 500 
330 POKE 5ET+80+A,0¡A= NOT A:N=M+1:G0T 
O 260 

340 T=INT(6*RND(1))+1:IF M(T) THEN RET 
URN 

350 POKE 53279,4:GOTO 340 
360 T=1¡R=0 

370 IF B(M+T*D(D,0),Y+T*D(D,1))=A+1 TN 
EN T=T+1:R=R+1:GOTO 370 
380 T=-l 

390 IF B(X+T*D(D,0),Y+T*D(D,1))=A+1 TH 
EN T=T-1¡R=R+1:G0T0 398 
400 RETURN 

410 T=T+ÜIF NOT HCT) THEN 410 

420 R=SET+T*13-6: BN=PEEK (R) ; X=4: D=1 

430 X=X+1:IF X=5 THEN POKE R,2S5*D:PQK 

E R+1,255*D:X=0:D= NOT D 

440 IF PEEK(53279)=5 THEN POP :POKE R, 

BNíPOKE RU,BN:GOTO 140 

450 POKE 77,0:K=5TICK(B):IF 5TRIGCB) A 

W K=15 THEN 430 


460 POKE R,BN:POKE RU,BN:K=(K=14) :K=K 
*2“1 *'IF MOT 5TRIGCB) THEN RETURN 
470 T=T-K:T=T+6N( NOT T):T=T~6#(T=7):I 
F NOT HÍTJ THEN 470 
480 GOTO 428 

490 FOR C=15 TO 0 STEP -1:50UND 0,121, 
10,C:NEXT C:RETURN 

500 POKE 710,15* NOT A:F0R BN=-1 TO 1 
STEP 2:T=CBN=1) 

510 B=Xn*O(D,0):K=Y+T*O(P,l):IF B(B,K 
)<>A+1 THEN NEXT BN:GOTO 540 
520 T=T+BN:FOR N=B*28-13 TO B*28~4:PL0 
T N,K*13~8:DRAHT0 N,K*13-3:NEXT N 
530 GOSUB 490.'GOTO 510 
540 POKE 77,0:IF STRIGC0) AND PEEKC532 
791=7 THEN POKE 710,PEEKC20)¡GOTO 540 
550 POKE 710,190¡GOTO 140 
560 B=0:BN=~10 A 11:P=B:IF N<3 THEN 350 
570 GOSUB 680¡POKE 53279,P¡C=0:P=PU¡I 
F P=7 THEN T=B¡RETURN 
580 X=H(P)¡Y=P¡IF NOT X THEN 578 
590 FOR D=8 TO 3¡G0SUB 360¡C=C+R:IF R= 
2 THEN 0=0+20 
60O IF R>2 THEN T=P¡RETURN 
610 NEXT D¡A= NOT A¡FOR D=0 TO 3¡G0SUB 
360¡C=C+R:IF R=2 THEN 0=0+10 
620 IF R>2 THEN C=C+SET 
630 NEXT D:A= NOT A¡IF X=1 OR N<6 THEN 
668 

640 X=X-1¡F0R D=8 TO 3¡GOSUB 360:0=0-2 

00*(R>2)¡NEXT D¡A= NOT A 

650 FOR D=0 TO 3¡GOSUB 360:0=0-3000*(R 

>2)¡NEXT D¡A= NOT A 

660 IF 0>BN THEN BN=C:B=P 

670 GOTO 570 

680 IF PEEKC53279D5 THEN RETURN 
690 POP ¡POP ¡GOTO 140 
25000 REM DLI¡ 

30000 RESTORE 30840¡FOR T=1536 TO 1568 
¡READ D.'POKE T,D¡NEXT T 
30010 READ CA,CB¡SET=T¡D=PEEK(560)+PEE 
K(561)*256+2¡POKE D,240¡N=0¡POKE 512,1 
¡POKE 513,6 

38820 D=D+1¡P0KE SET+N,PEEK(712)¡T=PEE 
K(D)¡IF T=65 THEN POKE 1556,33+N:POKE 
54286,192¡RETURN 

30830 T=T~128*(T>127)¡POKE D,T+128:P0K 
E SET+N,PEEK(712)¡N=N+1:D=D+2*(T>64)¡G 
OTO 30020 

30040 DATA 33,72,138,72,174,0,6,189,0, 
6,141,10,212,141,24,208,141,26 
30050 DATA 208,224,152,288,2,162,32,23 
2,142,0,6,104,170,104,64,1550,1553 • 
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LOGO 



LOGO 


LECCION 3 


Hola amiguitos, aquí estamos de vuelta con 
LOGO y la tortuguita. Hasta ahora hemos apren¬ 
dido los comandos: MX, AV, DE, LM, LT, IZ, RE, 
SL y LA, hemos usado REPITE y la tecla SHIFT. 
Esperamos que ya los domines bien, porque aún 
te faltan otros por aprender. 

En la lección 2 usamos SL CEN ¿te fijaste 
qué pasó? 

10o. comando: CEN (centro) 

Este comando hace que la tortuga se dirija al 
centro de la pantalla y quede mirando hacia arri¬ 
ba,del monitor. Si antepones el comando SL no 
marcará el desplazamiento. 

Dígita: 


AV 10Q DE 100 
AV 100 CEN 
LM LT 

AV 85 IZ 90 
AV 30 SL CEH 
LM LT 

REPITE 360EflV 1 DE 13 
LA REPITE 360[AV 1 DE 13 
LM LT 

REPITE 96 [AV 1 DE 43 




11o. comando: ST (sin tortuga) 

Hace que la tortuga desaparezca de la panta¬ 
lla. Sólo se ve lo que está dibujando. 

Digita: 



AV 

190 

IZ 

45 


AV 

10 

DE 

99 


AV 

5 DE SO 


CEN 




IZ 

45 

AV 

80 


DE 

135 

AV 

100 


SL 

CEH 




TG 





LM 

LT 

LA 


12o. comando: 

TG 

[con tortuga) 

Este comando 

hace aparecer nuevamente a 

¡a tortuguita, que se había hecho invisible al usar 

el comando 

ST. 




Digita: 






AV 

38 

5T 



TG 

AV 

48 

DE 9S 


AV 

69 

DE 

90 


ST 

AV 

78 



DE 

98 

AV 

69 


DE 

45 

AV 

180 


IZ 

90 

AV 

38 


CEH 




TG 





LM 

LT 



Digita: 


AV 

98 




LG 

RE 

58 



DE 

90 

AV 

70 


LA 

RE 

79 



IZ 

96 

AV 

50 


LG 

RE 

25 



AV 

25 




RE 

25 

LA 

AV 25 


13o. comando: LG (lápiz goma) 

Este comando te sirve para borrar alguna 
línea que esté en la pantalla. Si lo utilizas para 
desplazar a la tortuga, no dejará marcado su paso. . 
Por lo tanto, una vez que hayas borrado la línea f 
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LOGO: continuación 


deseada debes ordenar LA, para continuar dibu¬ 
jando. 

Dígita: 


REPITE 18BÍAV 1 DE 23 
IZ 90 5L AV 80 DE 90 
LA 

REPITE 180 [AV 1 IZ 23 
DE 45 AV 10O 
5T RE 50 TG 
IZ 90 AV 50 CEN 
5L AV 70 

LA REPITE 30 [AV 1 DE 43 
REPITE 45EAV 1 DE 8] 

CEN 

LG AV 70 CEN 
LM LT LA 


Dígita: 


REPITE 368[AV 1 IZ 13 
REPITE 40[AV 1 IZ 13 
AV 80 IZ 110 
AV 80 

IZ 90 SL AV 25 
LA REPITE 45[AV 1 IZ 83 
5L AV 38 

LA REPITE 45[AV 1 IZ 83 
IZ 90 5L AV 30 
LA REPITE 45[AV 1 DE 33 
5L CEN 

IZ 130 AV 35 DE 45 
LA AV 60 
5L CEN 5T 



Después de hacer el ejercicio anterior habrás 
notado que estamos haciendo figuras, utilizando 
círculos. 

Recordemos un poco de geometría. ¿Sabes? 
un círculo tiene 360 grados, de modo que cuando 
le dices a la tortuguita que avance un paso y gire 


a la izquierda una vez, y que esto lo repita 360 ve¬ 
ces, te dibujará un círculo. Cada paso que vi[e a 
la izquierda (o derecha) corresponderá a un grado. 

La orden quedaría así: 

REPITE 360 [AV 1 IZ 13 

Si quieres que el círculo te quede más peque¬ 
ño, por ejemplo la mitad del anterior, tienes que 
ordenar que cuando de un paso gire dos grados, 
y que esto lo repita la mitad de veces. 

La orden quedará así: 

REPITE 186EAV 1 IZ 23 

El círculo se cerrará antes y será más pequeño. 
Prueba tú hacer círculos aún más pequeños. I 

Dígita: 


5L AV 30 
LA 

REPITE 360LAV 1 DE 13 
REPITE 356[AV 1 IZ 13 
REPITE 180[AV i IZ 23 

51 CEN 

LA REPITE 180(AV 1 DE 13 

5L CEN 

LA REPITE 180 [AV I IZ 13 
5L CEN 

AV 60 LA AV 25 CEN 


Dígita: 


LM LT 

IZ 90 5L AV 100» 

LA DE 98 

REPITE 4[REPITE 90ÍAV i DE 23 
,..IZ 180 


Con este ejercicio hicimos ARCOS, y como 
puedes ver, el REPITE nos es muy útil. Aquí lo 
usamos dos veces. 

Dígita: 


LM LT 

5T AV 70 DE 90 
AV 70 DE 90 
TG DE 45 
CEN 

LG AV 70 CEN 
LA IZ 45 AV 100 
LG RE 108 
LA CEN 


Bueno amiguitos, ¡a practicar! 
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Procesadores de Texto 


UN SIETE PARA LOS OCHO 


Este título sirve para cumplir integralmente 
con la información acerca de los Procesadores de 
t Tex to disponibles para ATAR/ de 8 bits. 

Usted puede disponer una impresora por un 
precio menor al de una máquina eléctrica, que en 
conjunto con el software que usted seleccione le 
permitirá disfrutar de la tecnología actual de los 
Procesadores de Texto en su casa. 


MUNDOATARI describe a continuación 7 
Procesadores de Texto disponibles en el mercado, 
para que usted seleccione y/o complemente su 
biblioteca personal de software. 

• ATARIWRITER PLUS (Multieditor) 

Este Procesador de Texto, poderoso y ver¬ 
sátil, de uso generalizado en Chile, pues se en¬ 
cuentra traducido al español en la versión Multi¬ 
editor (de Multisoft), con manual de uso. 

La versión original en inglés presenta la 
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APLICACIONES: continuación 


particularidad de incrementar la memoria de los 
12,3 Kb al usar el Banco Secundario del 130 XE. 
Para ello la opción START B conmuta entre un 
banco y otro. 

ATARIWRITER PLUS puede configurarse 
a cualquier impresora. Usted necesita cargar el 
Printer Driver, al iniciar el software. 

La prevista (visión de cómo quedará el texto 
impreso en el papel) da un scrolling horizontal 
en 200 columnas. 

Tiene acceso a crear un correo electrónico 
con un máximo de 255 registros por archivo. 

La opción de búsqueda es rápida y permite 
efectuar modificaciones. 

En próximos números publicaremos una 
serie de trucos con el ATARIWRITER para opti¬ 
mizar su uso. 

• FIRST XLENT 

Producido por XLENT, software de USA, es 
un nuevo Procesador de Texto con algunas opti¬ 
mizaciones, tales como: 

— Adiciona dibujos a sus textos. 

— Uso del joystick para mover el cursor. 

— Edita dos documentos en uno. 

— Carga en memoria una fuente, tal como el 
set internacional. 

— Carga archivos desde cualquier Sistema Opera- 
tico, incluyendo el Sparta DOS. 

— Usa el RAMDISK del 130 XE. 

— Tiene un buffer visible y editable. 

— Presenta un menú de selección con iconos. 

• PAPERCLIP 

Producido por Batteries Included. Es uno de 
los mejores Procesadores de Texto para ATARI. 
Algunas de sus características son: 

— Presenta capacidades de macro software. 

— Tiene una estructura de comandos eficientes 
y rápidos. 

— Trabaja con 2 ventanas y una tercera para el 
buffer. 


— Trabaja con archivos estándar. 

— Ofrece funciones matemáticas ( +,—,*,/), 
edita total y subtotal. 

— Acceso a correo electrónico. 

— Definición de impresora (Printer Driver). 

— Vaciador de pantalla gráfica. 

— Convertidor de programas con ATARIWRITER 

• LETTER PERFECT 

Este es uno de los antiguos Procesadores de 
Texto. 

Características principales: 

— Usa su propio Sistema Operativo y no es 
compatible con el DOS. 

— Necesita el Translator para correr con los 
nuevos modelos ATARI XE. 

No es el más adecuado para su uso y con el 
tiempo ha perdido su versatilidad. 

• SUPERSCRIPT 

Procesador de Texto con estructura de menú 
y que al conocerlo puede usarse con teclas de 
control. 

Características principales: 

— Permite funciones matemáticas. 

— Permite calcular en columnas y filas. 

— Los formatos de impresora son flexibles y 
de uso variado. 

— Presenta un diccionario corrector de 20.000 
palabras en inglés. 

— Con el 130 XE puede hacer uso del Banco 
Secundario. 

• WORD MAGIC 

Ver en MUNDOATARI No. 11, página 29, 
una descripción detallada de este Procesador de 
Texto. 

• HOME PAK HOME TEXT 

Se trata de un buen Procesador de Texto, 
aunque su uso es muy reducido. 



CARACTERISTICAS PRINCIPALES DE PROCESADORES DE TEXTO 



Atari Writer 

XLent 

Paperclip 

Letter Perf. 

Superscript 

Word Magic 

Home Text 

Printer Driver 

si 

si 

si 

si 

si 

si 

si 

Máximo memoria 
archivo 

12,3 

28,3 

25 

28 

15,2 

23,7 

6,5 

Ventanas pantalla 

1 

1 

2 

1 

1 

1 

1 

Scrolling horizontal 

si 

no 

si 

no 

no 

no 

no 

Espaciamiento proporc. 

no 

si 

si 

si 

no 

no 

no 

Impresión doble columna 

si 

si 

si 

no 

no 

no 

no 

Código impresora 

si 

no 

si 

si 

si 

si 

no 

Correo 

si 

si 

si 

si 

si 

si 

si 

Memoria extra 1 30 XE 

46,5 K 


usa 

.64,1 K 





Ramdisk 
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CRONICA 




Colegios con ATARI 


MUNDO ATARI inicia nuevamente i a visita de ios 
Colegios con ATARI, para ayudar a todos los co¬ 
legios latinoamericanos que cuentan con este com¬ 
putador o consideren su implementación. 

Para sus inquietudes y experiencias escríba¬ 
nos a: COLEGIOS CON ATARI, casilla 458-11, 
Santiago de Chile. 


En esta oportunidad visitamos un nuevo co¬ 
legio de religiosas: Colegio María Inmaculada, ubi¬ 
cado en Mallinckrodt 17, Santiago de Chile. 

Este colegio femenino cuenta con instalacio¬ 
nes completas, como se ilustra en las fotografías: 

Se ha incorporado recientemente la nueva 
Multilínea a sus talleres de computación, de modo 
que con una sola Unidad de Disco e impresora 
pueden satisfacer por tiempo compartido, las ne¬ 
cesidades de impresión de 8 computadores ATARI. 

Las actividades relacionadas son: 

— Actividades de Curriculum Escolar: 

El aprendizaje del LOGO forma parte de la 
materia de asignaturas para las alumnas de 5o., 6g., 
7o. y 8o. grado básico. 

Las fotos y algunas pantallas muestran la rea¬ 
lización de esta actividad. 


Escenas durante una jornada 
de trabajo en el Taller de Computación 
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CRONICA: continuación 


Para apoyar esta actividad MUNDOATARI 
proporcionará a las mejores alumnas de cada curso 
del primer trimestre un premio y las publicaremos 
en la columna del LOGO. 


— Talleres: 



Por las tardes y en forma voluntaria las alum¬ 
nas se inscriben en diferentes actividades, tales 
como: 

a) Lenguaje BASIC en diferentes niveles. 

b) Lenguaje LOGO. 

c) Utilitarios. 

Felicitamos la labor de la dirección y profeso¬ 
rado del colegio por el espíritu e iniciativas de ta¬ 
reas educacionales que se encuentran desarrollando. 

Especial mención es la dedicación de su profe¬ 
sora María Moreira Ramírez, que destacamos co¬ 
mo la Educadora ATARI del mes. 

Escríbanos para visitar y conocer las activida¬ 
des de su colegio. 

Por razones de tiempo y distancia los colegios 
de provincia o de otros países deberán describir en 
un corto texto sus actividades y fotos de las mis¬ 
mas para publicarlas en próximos artículos. • 
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Educador 
ATARI del mes 



Iniciamos una nueva columna de reconocimiento 
y estímulo para los esforzados pioneros de esta 
nueva metodología. 


Su lema: 

Humanizar la computación y orientar a sus 
alumnas mediante el interés en la computación. 

Con esta frase definimos a María Moreira 
Ramírez, la educadora del mes para la revista 
MUNDOATARI. La editorial compartió con 
Marujita este sentimiento fraterno de sus alumnas 
en compañía de los computadores ATARI. 

A continuación algunas de sus opiniones res¬ 
pecto a la educación ATARI: 

¿Cómo se introdujo en ¡a computación? 

— La computación educativa necesita de un pro¬ 
ceso de humanización, y éste fue uno de los moti¬ 
vos para ingresar en este nuevo mundo. 

¿Cuáles son los momentos felices que le pro¬ 
porciona la computación educativa? 

— La alegría de mis alumnas, cuando en medio 
del silencio de la clase se escucha: "Marujita, me 
salió" 

Ahora comprenderán mi alegría y sentimien¬ 
tos hacia la computación educativa, si esta situa¬ 
ción se repite todos los días. 

¿Cómo debería organizarse la computación 
educativa en los colegios? 

— Mediante varias actividades-específicas: 

1. Incentivar a los profesores de asignatura, para 
que aprovechen las ventajas de la computación. 

2. Nuevas ideas para aumentar las posibilidades 
de uso del computador, como por ejemplo la 
Multired, etc. 

3. Incentivar el uso de utilitarios, tales como Pla¬ 
nilla Electrónica, Procesador de Texto, etc. 

¿Qué ganan los alumnos al participar en la 
computación educativa? 

— Principalmente ganan en lo siguiente: 

1. Les enseña a pensar, como por ejemplo el len¬ 
guaje LOGO (ver artículo del colegio). 

2. Ser exactos. La tortuga enseña al respecto, si 
se equivoca la alumna. No acepta errores. 

3. La creación, aprenden a hacer cosas nuevas. 

Al respecto lo comprobamos con una alumna 
que se encontraba diseñando una estrella con el 
lenguaje LOGO (ver fotografías ilustrativas). 

MUNDOATARI premia a esta distinguida 
amiga y educadora con una beca para el aprendi¬ 
zaje, de Inglés en un instituto especializado. 

Hasta el próximo mes. • 
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PROGRAMAS 



Programas en diskette para 
aprovechar al máximo las 
capacidades de la Red de 
MUNDOATARI en los ta¬ 
lleres computacionales. 


Guía de 
Software 
Educacional 


Sistema 

Métrico 

Decimal 


L0KC1TU&. • 




t>E VOLUHCM... 


CftPftCIt'ftC* • 




^ Tf ftMXMfttt PRt S JOMA 

LA LtTRA 


OBJETIVO: 

Los alumnos deben reconocer 
las magnitudes y la ejercitación 
aplicada a reducciones y pro¬ 
blemas. 

Recomendable para alumnos 
de enseñanza básica a partir de 
5o. año. Como los ejercicios 
planteados se pueden nivelar con 
facilidad, puede ser utilizado por 
alumnos de enseñanza media. 


CONTENIDO: 

Se ÍOicia con el concepto de 
magnitud y algunos ejemplos a- 
claratorios antes del menú prin¬ 
cipal. Desde aquí es posible ele¬ 
gir alguna de las diferentes mag¬ 
nitudes del S.M.D. 

Una vez efectuada la elección 
se puede ver un gráfico de la uni¬ 
dad en cuestión, los múltiplos 
y submúltiplos. 


Las reducciones con ayuda se 
realizan utilizando un cuadro 
que permite encontrar los resul¬ 
tados con facilidad. Esta opción 
es especialmente útil para quien 
se inicia en la tarea de reduc¬ 
ciones. 

Las reducciones sin ayuda son 
aptas para los conocedores del 
tema, lográndose una ejercita¬ 
ción más compleja y adecuada. 

Al finalizar cada serie se pro¬ 
duce un informe por pantalla de 
la eficacia en la resolución. 

USO FAMILIAR: 

Este programa puede ser em¬ 
pleado en el hogar con niños ma¬ 
yores de 9 años. Se recomienda 
a los padres seguir las mismas 
indicaciones dadas a los docentes. 
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PROGRAMAS 


Transformación de la energía 



OBJETIVO: 

Lograr que los alumnos inter¬ 
preten las distintas formas en 
que la energía se manifiesta, se 
transforma y se conserva. 

Ha sido desarrollado de acuer¬ 
do a los contenidos del programa 
oficial de cursos superiores del 
ciclo básico. 


CONTENIDO: 

Luego de enunciar el concep¬ 
to de energía en forma amplia, 
el computador simula un amane¬ 
cer en una represa hidroeléctri¬ 
ca, la formación de las nubes, la 
lluvia posterior y la generación 
de electricidad mediante una 
turbina. También se consideran 


algunos 'de sus múltiples usos. 

En todo este proceso se indi¬ 
can los distintos cambios ener¬ 
géticos, desde la energía radiante 
emitida por el sol, hasta la pro¬ 
ducida por los artefactos domés¬ 
ticos. 

EJERCITACION: 

Se compone de 3 tipos de di¬ 
ferentes ejercicios: 

- completar oraciones. 

- reconocer en gráficos formas 
energéticas. 

- completar con gráficos for¬ 
mas energéticas. 

Al finalizar el computador 
provee un resumen evaluativo de 
la tarea del alumno. 

USO FAMILIAR: 

Puede ser utilizado en casa 
por niños entre 10 y 13 años. 
Puede motivarlos a producir una 
investigación individual y la pos¬ 
terior profundización de lo a- 
prendido. 




Simulador de trabajo y 

energía 




PARA COK1JMUAR 
HENll PRINCIPAL 

J 


OBJETIVO: 

Observar un caso donde la 
energía se transforma en trabajo 
mecánico y a partir de allí hacer 
investigaciones repitiendo la si¬ 
mulación, variando las condicio¬ 
nes iniciales. 

La simulación aborda un te¬ 
ma de Física y está preparado 
para alumnos de enseñanza me¬ 
dia. 


CONTENIDO: 

La simulación consiste en un 
automóvil de masa M y veloci¬ 
dad V que avanza en línea rec¬ 
ta y al llegar al pie de una coli¬ 
na de cierto ángulo de inclina¬ 
ción apaga el motor y sube. 
De acuerdo a los valores propor¬ 
cionados el programa mostrará 
si el móvil sube o no la colina. 

Una vez terminada la simula¬ 


ción el alumno puede optar por 
realizar otra o por .pasar a la 
ejercitación, donde se le pregun¬ 
tará por los valores de la energía 
cinética del móvil y por el tra¬ 
bajo requerido para subir la co¬ 
lina en la última simulación. 

En caso de que el móvil no 
pueda subir, también se le pre¬ 
guntará por la longitud de la 
pendiente. 

El programa es propicio para 
la investigación, pues propone 
varias interrogantes. Una de ellas 
es calcular previamente la velo¬ 
cidad que requiere el móvil para 
que logre subir la colina, de 
acuerdo a datos previamente 
determinados. 

USO FAMILIAR: 

El manejo del programa es 
muy sencillo, sólo se debe seguir 
las indicaciones del mismo. Es 
muy útil para que el estudiante 
secundario investigue este tema 
en su casa. De igual manera po¬ 
drá realizar cálculos que el com¬ 
putador puede verificar. 
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PROGRAMAS: continuación 



\ c> Miviancia se r wt.ur mira tu r 
ttouito 


Cambios de estado 


OBJETIVO: 

Este programa educativo se 
basa en una simulación calori¬ 
métrica para recrear con el com¬ 
putador fenómenos que se rea¬ 
lizan habitualmente en el labo¬ 
ratorio escolar en el desarrollo 
de materias Física-Química, Fí¬ 
sica y Química. 

Está pensado como comple¬ 
mento de las clases prácticas del 
ciclo básico, enseñanza media 
y en aquellas materias donde se 
desarrolla el tema de cambios 
de estado de la materia. 

DESARROLLO: 

A continuación de la presen¬ 
tación se realiza el ingreso de 
datos. 

En la primera pantalla se eli- 
je la sustancia con la cual se ex¬ 
perimentará, apareciendo las 
constantes físicas correspondien¬ 
tes. A continuación se incorpo¬ 
rarán las condiciones iniciales de 
temperatura, masa y las calorías 
por segundo, que son absorbidas 
por la sustancia en el proceso. 
Esta opción se realiza a partir 
de diferentes tipos de mecheros 
a disposición de los alumnos. 

Luego de la evolución, que se 
muestra gráficamente, se pasa a 
la pantalla de los relojes indica¬ 
tivos de las variables del fenóme¬ 
no. En la parte izquierda de la 
pantalla se indican la masa, la 
temperatura inicial, la sustancia 
y el estado de la misma en las 
condiciones elegidas. En la parte 


derecha, el primero de los relo¬ 
jes indica el tiempo empleado en 
la experiencia, el siguiente la 
temperatura y el tercero las calo- 


OBJETIVO: 

Comprensión del concepto de 
triángulo y sus elementos. . 

Ha sido diseñado para alum¬ 
nos de 6o y 7o. año básicos y 
primer año de enseñanza media, 
con conocimientos básicos de la 
teoría de conjuntos. 

CONTENIDO: 

El menú principal ofrece pa¬ 
sar a la explicación o a la ejerci- 
tac-ión. 

La primera desarrolla la defi¬ 
nición de triángulo a partir de la 


rías que son absorbidas por la 
sustancia. 

ACTIVIDADES: 

La gran utilidad de este pro¬ 
grama es la posibilidad del uso 
dinámico del método científico, 
en cuanto a la modificación de 
variables y a la formulación de 
hipótesis y su posterior corrobo¬ 
ración. 

Entre otras consecuencias, los 
alumnos podrán observar la cons¬ 
tancia de la temperatura durante 
los cambios de estado y calcular 
los calores específicos, así como 
los latentes de cada una de las 
sustancias propuestas. Podrán 
utilizar sus conocimientos de la 
teoría del error para establecer 
aquellos cometidos al desarrollar 
experimentalmente las experien¬ 
cias propuestas en esta situación. 


intersección de semiplanos. Lue¬ 
go se describen los elementos 
fundamentales (vértices, lados, 
puntos interiores y ángulos inter¬ 
nos). A continuación se realiza 
la clasificación según los valores 
de sus lados y ángulos internos. 

USO FAMILIAR: 

Este programa puede utilizar¬ 
se en el hogar como complemen¬ 
to de los temas estudiados en 
clase, con el objeto de fijar los 
contenidos que se desarrollan. 


Triángulos oblicuángulos 
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Primer Resultado 
Concurso 


"REGIONES CON LAPIZ DE LUZ" 


Agenda 


En esta ocasión han resultado seleccionados 
los aportes de dos lectores de MUNDOATARI. 
Ellos son don Juan Bekios Caifa, de Ovalle, y don 
Rodrigo Ortiz Cáceres, de Tocopilla. 

Las pantallas correspondientes a estos aportes 
se presentan a continuación: 


magnética 




Este programa de aplicación práctica continúa 
con nuestra definición de buscar y entregar progra¬ 
mas a nuestros miles de lectores, que proporcio¬ 
nen herramientas útiles y vigentes. 


Este programa para la unidad de disco permite 
llevar en una agenda magnética (diskette) la infor¬ 
mación de los compromisos o actividades perso¬ 
nales. 

El programa usa una Lista de Despliegue mo¬ 
dificada y maneja cada mes como un archivo úni¬ 
co en un string. 

Otro recurso que presenta es que proporciona 
el mes calendario en forma completa, de acuerdo 
al año, y con los días de la semana correspon¬ 
dientes. 

La pantalla presenta esta descripción: 



MAR MAY 3 
Hit MAY 4 


Fig. 2: fl Región 
preparada por Rodrigo Ortiz Cáceres 


JUf MAY 5 
Vie MAY t. 


Para ambos lectores se les asigna un premio de 
$ 7.000 en software del Catálogo ATAR I, a elec¬ 
ción. Agradeceremos a nuestros amigos lectores 
hacernos llegar el pedido para su despacho. 

i Felicitaciones por sus excelentes aportes! 


4AB MAY 7 

La/J3Bilcut HX3JH&L»lili 


Presenta un menú inicial de selección como 
se ilustra en la foto: 
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APLICACIONES: continuación 




6 REN CALENDARIO HAYO 1988 
8 PONE 186,PEEK(7481:GRAPHICS 0 
10 DIH DAY$(21),H$(40),DYS(24),AS Cll,F 
ILE$(15),LIME(25),PP$(40),HOLD$(257),F 
NS(14),5CR$(4500),JJ$(25),LL$(40) 

12 PRINT CHR$(125)¿"INICIALIZANDO.." 

15 5CREEN=PEEK(88)«256*PEEK(89)«40:FOR 
J=1 TO 23¡LINE(J)=5CREEN:SCREEN=SCREE 
N+40SNEXT JSGOSUB 3100 
20 GOSUB 1000 

99 REH MENU PRINCIPAL 

100 TRAP 100:GRAPHICS 0:PONE 559,62¡P0 
KE 53277,3:SETC0L0R 2,0,0:GOSUB 30000: 

PONE 82,0:INC=0 _ 

110 PRINT :PRINT :PRINT mi WM 11 IIM'I" 
":PRINT :PP$-CHR$(18):PPS(40)=PPS:PPS( 
2)=PP$:PRINT PPS 

120 PRINT >a SELECCIONE (DIGITE LETR 

A )*': PRINT PPS 

130 PRINT : PRINT " QUEMO HES 11 
:PRINT 11 0NTIGUO HES "¡PRINT " 

SALVA HES»¡PRINT « BlICIALIZA" 

140 PRINT " 0ORRA HES(DISKETE)":PO 
KE 764,255¡CL0SE HISOPEN ttl,4,0,"K:":G 
ET ttl,J:A$=CHR$(J) 

150 IF A$="N n THEN 2000¡REH NUEVA PANT 
ALLA 

160 IF AS="A" THEN 2200:REH EDITA ANTI 
GUO HES 

170 IF AS="5» THEN 2400:REH SALVA DATO 
S HES 

180 IF AS="I» THEN SCRS(1)=CHRS(0):5CR 
S(4500)=CNR$(0):5CRS(2)=SCR$:REH INICI 
ALIZA STRING DATOS 

190 IF AS="B" THEN 2800:REH BORRA ARCH 

IVO DEL DISKETE 

195 PRINT CHRS(125)¡GOTO 110 

599 REH RUTINA EDITAR PANTALLA 

600 TRAP 100:CLO5E HISOPEN H1,4,0,"K:" 
¡PONE 82,0:POKE 752,0:POSITION U,1:PR 
INT "««■»; ¡POKE 764,255 


610 IF PEEK(764)=255 THEN GOTO 670¡REH 
NO PRESIONA TECLA 
615 GET H1,K 

620 IF K=125 OR K=156 OR K=157 THEN PO 

KE 764,255¡GOTO 670 

630 YY=PEEK(84):XX=PEEK(85) 

635 IF XX=39 THEN K=31 

640 IF (XX<11 AND (YY-1)/3=INT((YY-1)/ 

3)) AND (K<28 OR K>31) THEN K=31 

645 IF (YY=1 AND K=28) OR (YY=22 AND ( 

K=29 OR K=155)) THEN K=31 

650 PRINT CHRS(K);:GOTO 610 

678 BUTTON=PEEK(53279) :IF BUTT0NO3 AN 

D BUTT0NO6 AND BUTT0NO5 THEN 610 

680 RETURN 

699 REH SALVA STRING A DISKETE 

700 CLOSE HISOPEN Hl,8,0,FILESSPUT Hl, 
H!PUT Hl,INT(Y/256)SPUT Hl,Y-(INT(Y/25 
6)) *256 

710 HI=17:L0=48:REH 4400 BYTES 

720 POKE 850,11:POKE 856,L0:P0KE 857,H 

I:GOTO 820 

799 REH LEE STRING DESDE DISKETE 

800 CLOSE HISOPEN H1,4,8,FILE$:GET Hl, 
HSGET Hl,Yl.'GET H1,Y2¡Y=Y1*256*Y2 

810 POKE 850,7¡POKE 856,255¡P0KE 857,2 
55 

820 NHI=INT(ADR(SCRS)/256)¡NLO=ADR(SCR 
S)-NHI*256 

830 POKE 852,NL0:P0KE 853,NHI¡DQ=USR(A 
DR("hhhGLVB"),16)¡CLOSE Hl 
840 RETURN 

899 REH DIRECTORIO DISKETE 

900 CLOSE HISOPEN Hl,4,0,"K¡"SPRINT CH 
R$(125);"DRIVE H";¡GET H1,X:FNS=»D1¡*. 
*"¡FNS(2,2)=CHRS(X) 

905 CLOSE Hl¡PRINT CHRS(X)¡OPEN Hl,6,0 
,FN$ 

910 FOR X=1 TO 64¡INPUT H1,FN$:FN$=FN$ 

(3)¡IF FNS(3,12)="FREE 5ECT0" THEN 950 

920 IF X/2=INT(X/2) THEN POSITION 15,( 

X«l)/2¡? FNSsGOTO 948 

938 POSITION 2, (X«2)/2¡? FNS 

940 NEXT X 

950 RETURN 

999 REH INICIALIZA STRING 

1800 DAYS="SABDOHLUNHARHIEJUEVIE l, 

1810 H$="ENEFE0HARABRHAYJUNJULAGOSEPOC 
TNOVDIC" 

1020 DY$=“312831303130X13130313031" 
1030 SCR$(1)=CHRS(0)¡SCRS(4500)=CHRS(8 
)¡SCRS(2)=SCRS 

1040 RESTORE 1050¡FOR LOOP=l TO 25SREA 
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APLICACIONES: continuación 


P PT:J JS(LOOP)=CHRS CDT):NEKT LOOP 
1050 PATA 104,104,131,204,104,133,203, 
104,133,207,104,133,206,160,0,177 
1060 PATA 206,145,203,200,192,220,200, 
247,96 

1070 LLS="- 


1080 RETURN 

1999 REH PATOS HES 

2000 ? "FECHA: HE5, ANO C 00,198K) 
"¡INPUT H,Y¡P=1¡IF M>12 OR H<1 THEN 

2000 

2010 IF H<3 THEN H=H*12¡Y=Y-1 

2020 N=2*H*INT (0.6*(H+11 1 *Y*INT (Y/41 -I 

NT(Y/1001*INT(Y/4001*3 

2030 N=INT C(N/7-INT «N/7)1*7*8.051:0=N 

2040 COTO 5000 

2199 REH EPITA ANTIGUO HES 

2200 ? "OIRECTORIO ? (5 / NI":POICE 
764,255:CL0SE NlrOPEN H1,4,0,"K:":GET 
ttl,J¡A$=CHR$(Jl 

2210 IF AS="5" OR AS=»S" THEN GOSUB 90 
0 

2230 ? "CUAL HES EPITA T":GOSUB 4000: 

REH BUSCA HES PE PIRECTORIO 

2240 IF FN$="" THEN 100 

2250 GOSUB 800¡REH LEE PATA PEL PISKET 

E 

2260 GOTO 2010 

2399 REH SALVA PATOS 

2400 FILES="0:":FILES 131=HS(H*3-2,H*31 
!FILES(61=5TRS(Y1 

2410 GOSUB 700 
2420 GOTO 100 

2799 REH BORRA UN ARCHIVO 

2800 ? "PIRECTORIO ? CS / N1":P0KE 
764,255:CL0SE IIÜOPEN 111,4,0,"K¡":GET 
ttl,J¡A$=CHR$(Jl 

2805 IF AS="S" OR AS="5" THEN GOSUB 98 

O 

2810 ? "CHAL ARCHIVO BORRA ?":? :CLOSE 
til:? "PIGITE NOMBRE O PULSE ":? "RET 
URN Y FINAL "i:GOSUB 4000 
2820 IF FNS=»" THEN 195 
2830 KIO 33,113,0,0, FILES ¡GOTO 195 

2999 REH IHPRIHE PATOS PE PANTALLA 

3000 TRAP 608¡POKE 752,1¡PRINT "**"¡CL 
OSE HISOPEN m,4,0,"P:"¡F0R J=1 TO 22 
3010 FOR 1=1 TO 48¡PPS CI1=HOLOS(PEEN CL 
INEUl *1-11 *11 ¡NEKT I¡? ItljPPS 

3015 IF J/3=INT(J/31 THEN ? ttl;LLS 
3020 NEKT J:FOR Q=1 TO 5¡? ttlsNEKT Q¡C 
LOSE ItlsGOTO 608 


3099 REH ARREGLO CAHBIA CARACTERES INT 
ERNOS A CARACTERES ATASCII 

3100 FOR 11=0 TO 255¡IC=II:IV=0¡IF IC> 
127 THEN IV=1¡IC=IC-128 

3110 IF IC<64 THEN AC=IC*32*128*IV¡G0T 
O 3140 

3120 IF IC<96 THEN AC=IC-64*128*IV¡G0T 
O 3140 

3130 AC=IC*128*IV 

3140 HOLPS(11*11=CHRS(AC1¡NEKT II 

3199 REH INICIALIZA PLAYER/HI55ILE 

3200 PHBASE=PEEK(1061-16¡POKE 54279,PH 
BASE¡PHBA5E=PHBA5E*256 

3210 FOR H=53256 TO 53259¡POKE H,3¡NEX 
T H¡POKE 53260,255 

3220 POKE 88,O¡POKE 89,PEEK(1861~16¡? 
CHRS(1251:GRAPHICS O¡SCREER=PEEK(881*2 
56*PEEK(891*40 

3230 FOR H=PHBASE*807 TO PHBASE*987 ST 
EP 0:F0R J=0 TO 1024 5TEP 256¡P0KE H*J 
,255¡NEKT J¡NEXT H 

3240 FOR H=704 TO 707:P0KE M,0:NEKT H: 
POKE 559,62¡POKE 53277,3SP0KE 623,1 
3250 RESTORE 3260¡FOR 1=53248 TO 53255 
¡REAP J¡POKE I,J:NEXT I:RETURN 
3260 PATA 48,80,112,144,176,184,192,20 
O 

3999 REH HANIPULA ARCHIVOS 

4000 INPUT FN$¡IF FN$="" THEN RETURN 
4010 FOR J=1 TO LEN(FN$1¡IF FNS(J,J1=" 
¡" THEN POP ¡FILES=FN$¡RETURN 

4020 NEKT J:FILES="P:":FILES(31=FNS:RE 
TURN 

4999 REH EPITA SEHANAS EN LA PANTALLA 
Y SALVA PATOS A STRING 

5000 POKE 752,1¡? CHRS(1251¡SETCOLOR 2 
#7,4 

5015 IF H>12 THEN H=H-12:Y=Y*1 
5308 PY=VAL(0YS(H*2-1,H*211 
5305 IF H=2 THEN IF (Y/4=INT(Y/41 ANP 
Y/100 OINT(Y/18811 OR Y/4O8=INT(Y/40O1 
THEN PY=PY*1 
5310 GOSUB 7000 

5315 FOR L00P=1 TO 7SP05ITI0N 0,LOOP*3 

-2 

5316 IF L00P*INC*7>PY THEN POSITION O, 
L00P*3-2¡? "AGENPAfl] >t ;:POP ¡GOTO 5340 
5320 ? PAYS(0*3*1,0»3*31; H ";HS(H*3-2, 
H*31¡" "jL00P*INC*7¡ 

5325 Q=Q*1 

5327 IF 0=7 THEN Q=0 

5330 NEKT LOOP _ 

5340 P05ITI0N 8,23¡? " BQ3BSIGUE 31 
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APLICACIONES: continuación 


P RI N yp P TI ú H - HE N Ui 


5350 GOSUB 600: REH RUTINA E0ITA PANTAL 
LA 

5370 IF BUTTON-6 THEN GOSUB 6000:INC=I 
NC+lSlF INC=5 THEN INC=0:Q=N 
5380 IF BUTT0N=6 THEN 5000 
5410 IF BUTT0N=3 THEN GOSUB 6000:GOTO 
100 

5420 GOSUB 3000:GOTO 5350 

5999 REN INGRESA DATOS DE PANTALLA A 
STRING 

6000 PONE 752,1:? "*t":FOR LOOP=0 TO 3 
!INDEX1=880*INC+L0OP*220U:INDEX2-5CRE 
FN+LOOP#220 

6010 DO=USR(ADR(JJ$J.ADR CSCR$(INDEH1)) 
,IN0EX2) 


6020 NEXT LOOP 
6030 PONE 752y0:RETURN 

6999 REN EDITA STRING A PANTALLA N 

7000 FOR LOOP=0 TO 3¡INDEH1=880*INC+L0 
OP#220*1:INDEX2=SCREEN+LOOP*220 

7010 DQ=USR(ADR(JJ$),INDEX2,ADR(SCRS(I 
NDEH1))) 

7020 NEXT LOOP 
7030 RETURN 

29999 REH DESACTIVA TECLA BREAN 
3000B REN PONE 16,112:PONE 53774,112 
30010 RETURN 


Este programa de aplicaciones de este mes 
demuestra las potencialidades latentes de su com¬ 
putador ATARI. 


CONTRIBUCIONES 1988 


Este mes se ha seleccionado la contribución envia¬ 
da por don Jorge Valenzuela S. de Santiago, quien 
se hace acreedor a un premio de $ 5.000 en soft¬ 
ware del Catálogo MUNDOATARI, que puede re¬ 
tirar personalmente de nuestras oficinas o solicitar 
por medio de la Orden de Pedido adjunta. 


RENUMERADOR DE LINEAS 

En ocasiones existe el problema de tener que 
renumerar las rutinas, para incluirlas en otros pro¬ 
gramas, o porque los intervalos no son los más 
adecuados. 

Si bien existen programas para renumerar, la 
solución es sólo parcial, pues ellos renumeran las 
líneas y no las instrucciones relacionadas con 
dichas líneas. Por ejemplo la línea: 

101 GOTO 1050 

quedaría tal cual si el número de línea fuera 500 
y al número 1050 le correspondiera el 3000. 

La versión correcta en este caso debiera ser: 

500 GOTO 3000 

En varios de estos programas se indica que 
hay que revisarlos personalmente y arreglarlos a 
mano. 


El programa siguiente soluciona esta difi¬ 
cultad, siendo posible su perfeccionamiento. 


10 REN ■■ ■ 

20 REN RENUHERADOR POR MB 
30 REH JORGE VALENZUELA 5EPULVEDA 
40 REN LA FUENTE 1530 LAS CONDES 
50 REN SANTIAGO CHILE 
60 REN - - 

70 DIN A$(128),B$(128),C$(128),N$(5),F 
$(15):LI=4995:PONE 730,1 
80 ? “((¿¿INGRESE ARCHIVO <D_:XXXXXXXX. 
YYY>";CHR$(155);"(DEBE ESTAR EN FORHAT 
0 LIST)".’INPUT F$ 

90 ? "¿INGRESE HUMERO DE INICIO, INCRE 
NENTO":INPUT EN,IN 


GENERANDO MAPA DE LINEAS 


:F0R T=1 TO 400:NEXT T 

110 CLOSE HISOPEN ttl,4,0,F$:POKE 559,0 

120 FOR T=EH TO 32767 5TEP IN 

130 TRAP 190¡INPUT ttl,A$ 

140 FOR 1=1 TO 6:IF ASC(A$(I,I))>57 OR 
ASC(A$(I,I))<48 THEN POP :? "K":G0T0 
160 

150 NEXT I 

160 P05ITIQN 2,3:? LI¿5j" D. "JA$C1,I- 
1)í",“J T¡LI=LI+5 
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APLICACIONES: continuación 


170 ? :? "C0MT":P05ITI0N 2,0:POKE 842, 
13¡STOP 

180 ? "N"¡P0KE 842,12¡NEXT T 

190 LI=5000:POKE 559,34 

200 CL05E HISOPEN ttl,4,0,F$¡CL05E tt2¡0 

PEN 82,8,0,"DI!RENUH" 

210 ? 82; "0 . REMUNERADO":CLOSE 82:OPE 
N tt2,9,0,"Di:RENUH" 

220 TRAP 230:INPUT 81,A$:B$=A$:C$=A$:G 

OTO 240_ 

230 ? ,, IHME ,, :END 

240 FOR T=1 TO LENCA$)¡GOSUB 260:NEXT 
T 

250 GOTO 520 

260 TRAP 250:IF A$CT,T)="G" THEN 310 

278 IF A$CT,T)="0" THEN 330 

280 IF A$CT,T)="R" THEN 430 

290 IF A$CT,T)="T" THEN 450 

300 RETURN 

310 IF A$CT, T+4)<>"GOTO " AND A$CT,T+2 
0)0 "GOSUB " THEN RETURN 
320 GOTO 620 

330 IF A$CT-1,T+2J<>" ON " THEN RETURN 
340 0=1:J=0:KZ=7 

350 TRAP 420:IF C$CO,Q)=»," THEN 378 
360 0=0+1¡GOTO 350 

370 Z=0:F0R P=KZ TO 0:IF A3CCC$CP,P))> 
57 OR A5CCC$CP,PlI<48 THEN NEHT P 
380 TRAP 420:K=VAL(C$(P,0-1))¡GOSUB 58 
0:N$=STR$(B):B$="" 

390 IF J=0 THEN A$=A$C1,P-1):J=1 
400 A$ (LEN CA$)+1)=N$:IF HAP=1 THEN HAP 
=8¡GOTO 300 

410 A$CLENCA$)+1)=",":KZ=0:60T0 368 
426 TRAP 380:X=VAL fC$ CKZ+1))¡GOSUB 580 
¡N$=STR$(B)¡B$=""¡HAP=1¡GOTO 390 
430 TRAP 480¡IF A$(T,T+7)<>"RE5T0RE " 
THEN RETURN 
440 GOTO 620 

450 TRAP 480¡IF A$CT,T+4)(>"THEM " AND 
A$ CT,T+4)<>"TRAP " THEN RETURN 
460 IF A5C CA$CT+5,T+5))>57 OR ASCCA$CT 
+5,T+5))<48 THEN RETURN 
470 GOTO 620 
480 RETURN 

498 FOR I=T TO LEN(A$) 

500 IF ASC(A$(I,I))>57 OR ASC(A$(I,I)) 
<48 THEN NEXT I 

510 JK=I:KJ=VALCA$(I,LEN(A$))):M$=5TR$ 
CKJ)¡KJ=JK+LENCN$)-1¡RETURN 
520 B$=A$:X=VAL(A$(1,6))¡GOSUB 580:605 
UB 560 


530 A$=STR$(B):AS(LENCAS)+1)=0$ CT) 

540 POKE 766,li? A$:POKE 766,1:? <t2,A$ 
¡GOTO 220 

560 FOR T=1 TO 5¡IF A5CCASCT,T))>57 OR 
ASCCA$CT,T))<48 THEN RETURN 
570 NEXT T:RETURN 
580 RESTORE 5000 

590 TRAP 610:READ A,B:IF A<>X THEN 590 
600 RETURN 
610 B=X¡RETURN 

620 GOSUB 490:X=VALCASCJK,KJ))¡GOSUB 5 
80 

630 TRAP 640¡N$=5TRS CB)¡B$=A$ CKJ+l):60 
TO 650 
640 BS=" " 

650 AS=ASC1,JK-1), 

660 ASCLENCAS)+1)=N$ 

670 A$CLENCAS)+1)=B$ 

680 ..GOTO 300 


El programa trabaja con una diskettera, ya 
sea externa o RAMDISK y también con 2 d.isket- 
teras. 

Es necesario que el programa o la rutina a re¬ 
numerar estén grabados en formato : 

LIST "D : XXXXXXXX. YYY" 

en un disco con suficiente espacio libre como 
para que quepa este último programa y algo más. 

Al ser ejecutado el renumerador pide al usua¬ 
rio que ingrese el nombre de la rutina en cuestión, 
de la siguiente forma: 

D : XXXXXXXX.YYY 

luego el número de inicio y el incremento entre 
líneas. 

Enseguida se genera un mapa de líneas, me¬ 
diante el ingreso de líneas de datos por medio de 
lectura forzada. Luego va poniendo en pantalla 
las líneas ya renumeradas, al mismo tiempo que 
en el disco de trabajo, bajo el nombre RENUM, 
se le agrega la línea: 

O REM Renumerado. 

Una vez terminado el proceso aparece en 
pantalla el mensaje: hecho en video inverso. 

Si se desea ver el mapa de líneas se debe listar 
las líneas a partir de la 5000. El primer número 
indica la línea primitiva y el segundo la nueva 
I í nea. 

Para obtener el programa renumerado se 
limpia la memoria con NEW y se dígita: 

ENTER "D:RENUM" 

y una vez cargado se podrá comprobar la nueva 
numeración. • 
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PROGRAMAS 



ZORRO 

Ayude a nuestro gran amigo de 
aventuras a rescatar a ia dama que 
tienen capturada los gendarmes. 

Búsquela en todos lados, pero 
recuerde que debe recolectar ciertos 
objetos para pasar a otras etapas del 
juego. 


I ~ ■ - ‘■'"V.i ”T 



STAR RAIDER II 

Igual a la versión I, pero con ma¬ 
yor realidad en los movimientos. 

Usted debe atacar rápido, o su 
galaxia será destruida por la flota in- 
vasora. 


Juegos 



TRAILBLAZER 

Un simpático juego, en el cual la 
agilidad es el factor fundamental para 
todo jugador. 

Su misión es movilizarse por toda 
la pista en el menor tiempo posible, 
sin caer en los agujeros que se en¬ 
cuentran en su camino. 

Si usted es rápido su tiempo que¬ 
dará entre los mejores. 



WHOMPER STROMPER 

Imagínese un pie que se encuentra 
en una ladera. 

Usted tiene la misión de matar a 
todas las hormigas que se quieren 
acercar a comer su comida dentro de 
la cesta. 

Trate de eliminarlas a todas, ya 
que en caso contrario se quedará sin 
comida. 


con STAC 



ZAXXON 

Un simpático juego de ataque tri¬ 
dimensional, en el cual usted tiene 
que destruir los objetivos que se en¬ 
cuentren a su paso y finalmente al 
robot que controla la base. 

Cuidado con las paredes, barreras 
láser y los proyectiles inesperados. 



SUPERMAN 

Ayude a nuestro superhéroe a 
combatir el mal. 

Desafíe las fuerzas malignas de los 
archienemigos de Superman, entre los 
laberintos donde ellos se esconden. 
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PROGRAMAS 


Para satisfacer a nuestros lectores continuamos ampliando la lista 
de juegos en casete grabados con STAC. 

Los últimos programas de esta lista son utilitarios que se incorporan 
a los beneficios de este revolucionario sistema. 



XEVIOUS 

El ataque de una nave a objetivos 
terrestres queda disminuido al lado 
de este fantástico juego. 

Ataque objetivos que se encuen¬ 
tran protegidos por naves enemigas, 
que lo atacarán. 

Su nave dispara y lanza bombas 
que deben caer exactamente en los 
objetivos terrestres. 


MISTER DO 

Ayude a nuestro amiguito a re¬ 
colectar fruta antes de que sean devo¬ 
radas por los bichos que habitan en 
los prados. 

Usted fabrica sus propios cami¬ 
nos, por donde lo perseguirán, pero 
donde usted los puede eliminar. 

Averigüe la forma como se hace. 


TAPPER 

Sea el cantinero de un bar en el 
cual sus clientes se desesperan por 
obtener un refrigerio. 

Es un entretenido juego, en el 
que usted debe repartir cervezas y 
recoger los vasos y las propinas. 

Si no es suficientemente rápido 
verá muchos vidrios en el suelo. 



ELECTRICIAN 

Usted es contratado por una empresa 
para trabajar en varios edificios y ca¬ 
sas para conectar los diferentes pisos 
al tendido eléctrico. 

Cuidado con los diferentes anima¬ 
les que encontrará en el camino, ya 
que ellos pueden arruinar los circui¬ 
tos o a su vez matarlo a usted. 


RIVER RAID 

Usted es piloto de un avión de 
combate. 

Su misión es destruir todos los 
objetivos enemigos que se encuen¬ 
tran a lo largo del río. 

Recuerde que debe abastecerse 
de combustible para continuar su 
misión. 


PITSTOP II 

Disfrute de una de las mejores si¬ 
mulaciones de carrera de fórmula I, 
eligiendo pistas, gastando y recam¬ 
biando neumáticos, cargando com¬ 
bustible, etc. y todo en el menor 
tiempo posible. 

Usted es el piloto. Su triunfo es 
de toda su escudería. 
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PROGRAMAS: continuación 


Juegos con STAC 


(continuación) 



NINJA 

En las artes marciales los mejores 
son los ninjas. 

Sea uno de ellos y combata a 
otros adversarios que lo atacarán 
con estrellas o con golpes. 

Si es más ágil que ellos logrará el 
triunfo. 


NEW YORK CITY 

Usted es turista en Nueva York. 

Pero usted debe seguir ciertas 
órdenes que se le darán en panta¬ 
lla, respecto al recorrido por la 
ciudad. 

Entreténgase con este fantásti¬ 
co juego que lo hará pasar buenos 
momentos. 


MICROFILER 

Igual a una Base de Datos para dis- 
kette, pero para casete. 

Usted puede almacenar todo tipo 
de información en este fantástico 
programa que le puede servir de gran 
ayuda en sus requerimientos perso¬ 
nales. 


ATARI MUSIC 

TI 

(DIT MUSIC 


iRRANGE MUSIC 


AVE 


ETRIEVE 


DOS 


1ISTEN 
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MUSIC COMPOSER 

Atrévase a ser un gran concertista 
con este simpático y sencillo progra¬ 
ma musical. 

El único requisito es tener buen 
oído y ganas de tocar música. 


MUSICA 

Otro tipo de programa musical, 
dedicado a personas que entiendan 
más de este tipo de arte 

Este es un programa en el cual 
el sintetizador funciona a su máxi¬ 
ma capacidad, lo que permite cono¬ 
cer todo el sistema de sonido de su 
computador ATARI. 


SINTETIZADOR DE VOZ 

Viva la experiencia de escuchar 
a su computador los textos que 
usted escriba. 

Este programa transforma su com¬ 
putador en una máquina parlanchína 
que puede pronunciar una infinidad 
de palabras. 
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SECCION ST 

Todos ios meses 2 títulos de Regalo (NUEVOS) 

SECCION 8 BIT CASETE 

Todos los meses 3 títulos de Regalo (NUEVOS) 

SECCION 8 BIT DISKETE 

Todos los meses 3 títulos de Regalo (NUEVOS) 

EQUIPOS EN DEMOSTRACION PERMANENTE 


INFORMATE EN LA DIRECCION QUE TE CORRESPONDE 


ARGENTINA 

calle Venezuela 2095 (1096) 


CHILE MUNDOATARI 
Avda. 11 Septiembre 2305 
Local 18 Fono: 2515949 













POTENCIA 


VELOCIDAD 


SEGURIDAD 



AHORA A BAJOS COSTOS PUEDE SER 
UNA REALIDAD EN TU COLEGIO 

MICRORED MUNDOATARI 


PUEDES USAR EL TALLER PARA: 


NIVELACION ALUMNOS 
PREPARACION DE P.A.A. 
USO DE UTILITARIOS 
PLANILLAS 
BASE DE DATOS 
PROC. DE TEXTOS 







INFORMES 

Avda. 11 Septiembre 2305 
Local 18 Fono: 2515949 



























